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PROGRAMM-SERVICE 


Wie auch zu unserer Stammzeitschrift Happy-Computer bieten wir wieder alle 
indie ‘em Sonderheft veröffentlichten Programme auf Diskette an, Da wir aber 
nic lie Programme auf einer Diskette unterbringen konnten, haben wir sie 

u. 2iDisketten im normalen DOS-2.0-Format verteilt. Somit kann man also 
‚uc asalte 810-Diskettenlaufwerk verwenden. Übrigens ist Diskette 1 beid- 
se’ Diskette 2 einseitig bespielt. Da sich auf allen drei Diskettenseiten 
j ein DOSSYS-File befindet, können Sie die Disketten booten. Dazu müs- 
s°  nurdie entsprechende Diskette ins Laufwerk schieben und die Strom- 
r gung des Computers einschalten, 

Sie irgendwelche Programme ausprobieren, sollten Sie sich Sicherheits- 
a anfertigen. Am einfachsten und schnellsten geschieht dies mit der 
„tion »)« vorn DOS-Menüi aus. 

‚enn Sie die Diskette ] (mit dem Aufkleber nach oben) booten, gelangen Sie 
automatisch ins Turbo-Basic XL. Mit DIR erfolgt dann die Ausgabe des Inhalts- 
verzeichnisses auf dem Bildschirm. Sollten Sie noch den älteren Atari 800 ver- 
wenden, booten Sie bitte die zweite Seite von Diskette | 
Im Atarı-Sonderheft finden Sie Programme in normalen Atari-Basic, in Turbo- 
Basic XL, in Maschinensprache und in Assembler. Damit Sie die Programme 
auf Diskette besser zuordnen können, haben wir für die oben genannten Krite- 
rien jeweils einen bestimmten Extender gewählt. Sie lauten im einzelnen: 


XXXXXXXX.BAS Atari-Basic. Um solche Programme laden zu können, müs- 
sen Sie sich entweder in Atari-Basic oder in Turbo-Basic XL befinden. Achtung! 
Manche Basic-Programme können unter Turbo-Basic XL zu schnell ablaufen. 


AKXXKXKKXX.TUR Turbo-Basic XL, Solche Programme müssen unbedingt 
unter Turbo-Basic XL laufen. Da dieses Basic über einen erweiterten Befehls- 
satz verfügt, istesnicht kompatibel zum Atari-Basic. Sollten Sie dennoch ein sol- 


ches Programm mit dem Standard-Atari-Basic laufen lassen, erhalten Sie ent- 
sprechende Fehlermeldungen. 


KXXXKXXX.M65 MAC/65-Quelltexte. Solche Dateien müssen unbedingt 
mit dem MAC/65-Assembler assembliert werden. Mit Basic lassen sie sich 
nicht verarbeiten 


XXXXXXXXCOM Objekt-Code, Hierbei handelt es sich um Programme, 
die man sonst mit AMPEL (Atarı-Maschinen-Programm-Eingabe-Lising) ein- 
geben muß, Um solche Programme zu starten, wählen Sie im DOS-Menü die 
Funktion »L« und geben dann den entsprechenden Programmnamen ein, 
‚Anschließend wird das Programm geladen und automatisch gestartet, Wenn 
Sie sich in Turbo-Basic XL befinden, lassen sich solche Programme auch mit 
»BRUN "D’XXXXXXXX COM aufrufen und anschließend starten 


KAXXKXXX.SYS System-Dateien (DOS 2.5). Auf der Rückseite von Diskette 
befindet sich außerdem noch ein DOSSYS-File mit 148 Sektoren Länge. Hier- 
bei handelt es sich um die abgespeckte Turbo-Basic XL-Vorsion für den Atari 
400 oder 800 mit mindestens 48 KByte-RAM. Wenn Sie diese Diskette booten, 
gelangen Sie automatisch ins Turbo-Basic. 
Damit wären also die einzelnen Programmtypen erklärt. Sollten Sie Probleme 
mit den Programmen auf den Leserservice-Disketten haben, empfiehltessich, 
die entsprechenden Erläuterungen im Sonderheft genau und aufmerksam 
durchzulesen. So kann manch ein Problem gelöst werden, 


Bestell. LH86S2D, DM 34,90*, (2 Disketten) 
inkl. MWSt. 


Programme aus früheren Ausgaben 


ATARI 800XL/130XE/800 
Tarbo-Basic 

Der schnelle Basic-Interpreter für den 
‚Atari. Auf der Diskette befindet sich je 
eine Version für den Atari 800XL und 
eine für den Atari800 mit mindestens 48 
KByte-RAM. Aus Ausgabe 12/85. 


AMPEL 
Atari-Maschinen-Programm-Eingabe- 
Listing. Aus Ausgabe 12/88. 


Atari-Prüfsummer 
Eingabehilfe für alle in Happy- 
Computer veröffentlichten Basic-Pro- 
gramme. 


Jumper IL 
Listing des Monats aus Ausgabe 8/84, 
um die Geschwindigkeit von Turbo- 
Basic zu dernonstrieren. 


‚Painter 
Listing des Monats aus Ausgabe 3/88. 
Ein Zeichenprogramm, das an Turbo- 
Basic angepaßt wurde, 


Alle 5 Programme auf einer Diskette 


für den ATARI 800XL/130XE/800. 
Bestell-Nr. LH 8512B, DM 29,90* 
ATARI 800XL 

Prüfsummer 

Eingabehilfe für alle in Happy- 


Computer veröffentlichten Basic-Pro- 
gramme. 


Ge \lheimer 
M! creen-Editor und 20 fertigen Sze- 


ne: Spiel), aus Ausgabe 5/85, 

24 ben in Grafikstufe 0 

Rc  e für farbige Schrift (Utility), aus 
Au be 6/88. 

Di ep 


Für die schnelle Rettung (Utility), aus 
Ausgabe 8/85. 


Ölsuche 
Mit dem Atari auf Ölsuche (Spiel), aus 
‚Ausgabe 8/85 


‚Autostart 
Basic-Programrme automatisch starten 
(Utility), aus Ausgabe 9/85, 


Dudu 4.0 
Mehr Speicher mit der 1050 Floppy 
(Unity), aus Ausgabe 10/88; 


‚Alle 7 Programme auf einer Diskette 
für den Atari 800 XL. 


Bestell-Nr. LH 85108, DM 29,90* 


ATARI 48 KByte-RAM 

Magic Painter 

Unser Listing des Monats in der Aus- 
gabe 3/88 ist ein Grafikprogramm, das 
sich mit anderen Malprogrammen die- 
ser Art durchaus messen kann. Beson- 
ders gelungen ist die einfache Bedie- 
nung, da man mit dem Joystick sowohl 
im Haupt- als auch in den Untermenüs 
sämtliche Punkte anwählen kann, Der 
elektronische Malkasten verfügt über 
16 Menüpunkte und bietet eine Grafik- 
auflösung von 160x96 Pixels. 


Grafikdemo 

‚Alle 256 Farben werden auf dem Bild- 
schirm dargestellt. Eine Farbspielerei, 
die die hervorragenden Grafikfähig- 
keiten der Atari-Computer beweist 
(Rainbow-Effekt), Aus Ausgabe 3/85. 


Variablen-Dump 

Mit diesem Programm können Sie die 
verwendeten Variablen einesanderen 
Programms auf dem Bildschirm listen. 
Ein wichtiges Utility, das Ihnen die 
lästige Fehlersuche in längeren Basic- 
Programmen erleichtert. Aus Ausgabe 

785. 


Wie die Bilder laufen lernen 

Mit dem Utility »Power-Mover« können 
Sie laufende Bilder schnell und pro- 
blemlos erzeugen. Für alle, die sich an 
die Programmierung von FPlayer- 
Missile-Grafiken heranwagen. Aus 
Ausgabe 2/88. 


Statuszeile mit Uhr 
Damit Sie beim Programmieren nicht 
die Zeit vergessen, hilft nur eine stän- 
dig sichtbare Zeitanzeige, Mit diesem 
Programm können Sie eine zusätzliche 
Statuszeile oberhalb des Bildschirms 
generieren. Aus Ausgabe 1/88. 


Alle 5 Programme auf Diskette für Atari 
mit mindestens 48 KByte-RAM, 
Bestell-Nr. LH 85036, DM 29,90* 


ATARI 48 KByte-RAM 
Diamantenfieber 

Unser Listing des Monats aus der Aus- 
gabe 2/85 ist eine wahre Schatztruhe 
BereichernSie sichan bunt glitzernden 
Diamanten, die kunterbunt in einem 
Bergwerk verteilt sind. Aber Vorsicht! 
Die Stollen sind sehr unstabil. Eine fal- 
sche Bewegung genügt, und Sie wer- 
den von losen Gesteinsbrocken 
erschlagen. Ein Spiele-Designer sorgt 
bei unserer exzellenten »Boulder 
Dash«Variante für anhaltende Span- 
nung, Entwerfen Sie Ihre eigenen Berg- 
werkstollen, aber mit Bedacht, denn 
nicht selten ergibt sich bei einem Bild 
nur ein Lösungsweg. 


Die Schatzhöhle 

Wer möchte sich nicht auch mit einem 
Schatz bereichern. Wer dazu nicht 
unbedingt eine Weltreise unterneh- 
men möchte, kann mit seinem Atari 
800XL in eine Schatzhöhle eindringen, 
Gefährliche Tiere wie Skorpione, Rat- 


ten und Schlangen erschweren die 
Suche. Nur mit viel Geschick können 
Sie Ihren Geldbeutel - aber nur im 
Spiel - auffüllen. Aus Ausgabe 1/85 


Zeilenzauber 

Die wichtigste RENUMBER Funktion 
fehlt leider im Standard-Atari-Basic. 
Dieses Programm behebt diesen Man. 
gel, Es ist leicht zu bedienen. Einfach 
das Basıc-Programm von der Diskette 
laden, »RUN« eingeben, und das ent- 
sprechende Objekt-File wird auf Dis- 
kette geschrieben. Dann nur noch vom 
DOS-Menü ausmit der Funktion »L« das 
Objekt-Fileladen und mit»B«zurückins 
Basic gehen. Wenn Sie eın Basic- 
Programm umnumerioren möchten, 
geben Sie einfach »PRINT USR (8044)+ 
ein, und Ihr Programm wird wunschge- 
mäß umnumeriert. Aus Ausgabe 11/84. 


Jumper II 

Ein professionell gemachtes, in Basic 
geschriebenes Spiel, Exzellente Pro- 
grammierung, ein Highscore-Zähler 
und eingebautes Demo werden selbst 
Zweifler schnell überzeugen. Aufmusi- 
kalischa Untermalung wurde großer 
Wert gelegt, und die verschiedenen 
Screens sind brillant gemacht. Genau 
das richtige Programm für kalte Win- 
terabende. Listing des Monats, Aus 
Ausgabe 8/84, 


Mop - Der Goldgräber 
Schnelligkeit und guter Sound zeich- 
nen dieses Spiel aus. Die Soundfähig- 
keiten sind wirklich hervorragend, 
Viele Bilder sorgen bei diesem Pro- 
Fan für viel Abwechslung. Ausgabe 


Alle 5 Programme auf Diskette für Atari 
mit mindestens 48 KByte-RAM. 
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Is Atari-Besitzer kommt man 
sich manchmal wie auf einer 


einsamen Südsee-Insel vor. 
Sucht man Informationen oder Listings 
für seinen 800XL oder 130XE in deut- 
schen Computerzeitschriften, sitztman 
leider allzuoft auf dem Trockenen. Die- 
sem Notstand wollen wir mit diesem 
Sonderheft abhelfen. Hier finden Sie 
eine Fülle von Listings und Informatio- 
nen, die Sie hoffentlich für die lange 
Durststrecke entschädigen. Der Atari 
800XL/130XE zählt schließlich nach 
wie vor zu den leistungsfähigsten der- 
zeit erhältlichen Heimcomputern. Bis 
zu 256 gleichzeitig darstellbare Farb- 
schattierungen und die Player Missile- 
Grafik, mit der sich einige Effekte viel 
besser umsetzen lassen als mit Sprites, 
sind nicht zu übersehen. Berücksichtigt 
man dann den sehr günstigen Anschaf- 
fungspreis des Atari 800XL/130XE, ist 
dessen Preis/Leistungsverhältnis wirk- 
lich von kaum einem Heimcomputer zu 
schlagen. Auch die Peripherie, also 
Disketten-Laufwerke und Drucker, istin 
letzter Zeit preiswert geworden. 

Da wären aber noch die neuen 16-Bit- 
Computer. Man weiß, daß der Atari 
800XL und der 130XE mit einer 8-Bit- 
CPU vom Typ 6502 ausgestattet ist. 
Damit scheint klar zu sein, daß ein 
16-Bit-Prozessor viel leistungsfähiger 
sein muß als das 8-Bit-Gegenstück. 
Zählt also der 800XL im Vergleich zum 
ST zum alten Eisen? Sicher kann der 
800XL nicht mit der Grafikauflösung 
oder der Geschwindigkeit des ST kon- 
kurrieren. Aber einen ganz großen 
Pluspunkt gibt es für den 800XL: näm- 
lich Software für jeden Zweck. Als Spie- 
lecomputer zum Beispiel, ist der ST zur 
Zeit noch keine Alternative. Natürlich 
wird es in Zukunft viel Software für die- 
sen Computer geben, aber wer sofort 
loslegen möchte und vorzugsweise auf 
fertige Programme Wert legt, ist mit 
dem 800XL besser bedient. 

Als wirklich hervorragendes Beispiel 
für ausgezeichnete Software mag 
unser Turbo-Basic-Interpreter mitzuge- 
hörigem Compiler dienen. Beide Pro- 


gramme finden Sie in diesem Sonder- 
heft - natürlich zum Abtippen. Sie brau- 
chen also nur ein wenig Zeit zu investie- 
ren und haben anschließend einen 
Interpreter und einen Compiler, die es 
in sich haben. Geschwindigkeitsver- 
gleiche haben nämlich ergeben, daß 
Turbo-Basic XL seinem Namen alle Ehre 
macht; dieser Interpreter zählt zu den 
schnellsten, die es für den Atari gibt. 
Der dazu passende Compiler compiliert 
sogar in normalem Basic geschriebene 
Programme. Diese Programme sind 
dann wirklich die absoluten »Rennere«. 
Und damit Sie Ihr Turbo-Basic XL auch 
gleich ausprobieren können, haben wir 
einige Programme in dieser Program- 
miersprache veröffentlicht. 

Warum sollte man also neidisch wer- 
den, wenn in den meisten Zeitschriften 
mehr über andere Computer berichtet 
wird. Schließlich wird man einige Zeit 
brauchen, bis man alle in diesem Son- 
derheft veröffentlichten Programme 
ausprobiert hat. Oder bauen Sie sich 
doch die eine oder andere Hardwareba- 
stelei nach. Sei es eine Zehnertastatur 
oder ein Cartridge-Experimentier-Sy- 
stem, das Angebot ist reichhaltig und 
sorgt sicher für einige unterhaltsame 
Stunden. 

Ebenfalls in diesem Sonderheft fin- 
den Sie eine Umfrage, bei der es eine 
Menge schöner Preise als Belohnung 
fürs Mitmachen zu gewinnen gibt. Wir 
möchten nämlich gerne Ihre Meinung 
zu diesem Sonderheft wissen. Schließ- 
lich brauchen wir Ihre Anregungen und 
Vorschläge, um weitere Sonderhefte 
und natürlich vor allem unsere Stamm- 
zeitschrift Happy-Computer für Sie so 
interessant wie möglich zu gestalten. 
Unter allen Einsendungen verlosen wir 
unter anderem zwei Atari 1050 Disket- 
ten-Laufwerke und einen Atari 1029 
Nadel-Matrixdrucker. Also nicht lange 
zögern! Fragebogen ausfüllen, in ein 
Kuvert stecken und ab die Post an die 
Redaktion. Die Gewinner werden dann 
in einer der nächsten Ausgaben von 
Happy-Computer bekanntgegeben. 

Werner Breuer 


Spiele, die es in sich haben 


Das Atari 1050-Diskettenlaufwerk wird zur Rennfloppy 


7 


Diskettenservice 


Wer keine Zeit oder keine Lust hat, alle 
Programme selbst in mühevoller Klein- 
arbeit abzutippen, kann wieder auf den 
bewährten Diskettenservice zurück- 
greifen. Es sind hier sämtliche Programme 
des Sonderhefts auf zwei Disketten 
erhältlich. 
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Auf die Verbindung 
kommt es an 


Schnittstellen stellen die Verbin- 
dung zwischen Computer und 
Außenwelt dar. Wir haben zwei 
Interfaces unter die Lupe ge- 
nommen. 


ill man seine Programme 
W nur auf dem Bildschirm 
bewundern, so benötigt man 
einen Drucker und daneben auch eine 
passende Schnittstelle, Beim Atarikann 
man dieses Problem auf zwei Arten 
lösen. Besitzt man einen Original-Atari- 
Drucker, wie zum Beispiel den Atari 
1029, so ist keine separate Schnitt- 
stelle nötig. Diese Drucker sind nämlich 
dafür ausgelegt, ihre Daten über den 
seriellen Bus des Atari zu empfangen. 
Der Nachteil dabei ist, daß solche 
Drucker wirklich nur für den Atari ver- 
wendungsfähig sind. Bei einem 
Systemwechsel muß man sich dann 
zwangsläufig einen neuen Drucker 
anschaffen. 

Die Alternative hierzu ist ein beliebi- 
ger Drucker mit Centronics-Schnitt- 
stelle. Diese Schnittstelle entspricht 
einer bestimmten Norm und hat die 
Eigenschaft, Daten parallel zu verarbei- 
ten. Die Datenübertragung des Atari 
jedoch erfolgt seriell. Daher muß eine 
Schnittstelle die Wandlung des Daten- 
formats vornehmen. Bis vor etwa zwei 
Jahren gab es deshalb bei Atari auch 
das Interface 850 zu kaufen. Neben 
einer Centronics-Schnittstelle waren 
hier auch vier serielle Schnittstellen 
vom Typ RS232 eingebaut. Daran las- 
sen sich vor allem Akustikkoppler und 
auch einige Drucker anschließen. Die- 
ses Interface ist jedoch nicht mehr er- 
hältlich, und so übernahmen es ver- 
schiedene Fremdhersteller, die Schnitt- 
stellen für den Atari anzubieten. 

Eine dieser Schnittstellen nennt sich 
Interface 850 XL und kostet rund 
400 Mark inklusive Netzteil und Druk- 
kerkabel. Neben einer Centronics- 
Schnittstelle ist zwar nur eine RS232- 
Schnittstelle eingebaut, diese genügen 
allerdings für die meisten Anwendun- 


gen. Der RS232-Teil des Interfaces ist 
voll kompatibel zur .alten Atari-850- 
Schnittstelle. Den CentronicsTeil je- 
doch hat man etwas erweitert. Ein 
Nachteil der 850-Schnittstelle gegen- 
über der Verwendung der Origi- 
nal-Atari-Drucker war nämlich die feh- 
lende Codewandlung der Grafikzei- 
chen. Nicht jeder Drucker, der an die 
Centronics-Schnittstelle angeschlos- 
sen werden kann, ist auch in der Lage, 
Grafikzeichen zu drucken (zum Beispiel 
Typenraddrucker). Darum werden alle 
Codes unverändert an den jeweiligen 
Drucker geschickt. Dieser Nachteil läßt 
sich nur durch entsprechende Treiber- 
software wieder beheben. 

Beim Interface 850 XL hat man nun 
versucht, diesen Nachteil direkt mit der 
Schnittstelle wieder wettzumachen. 
Das Interface ist in vier verschiedenen 
Druckmodi zu betreiben, die über eine 
kurze Steuersequenz ausgewählt wer- 
den. Im ersten Modus werden alle Zei- 
chen ohne Codewandlung an den Druk- 
ker geschickt. Im zweiten Modus, der 
standardmäßig eingestellt ist und dem 
850-Interface-Modus entspricht, wird 
nur der »Carriage Return«-Code umge- 
wandelt. Der Drucker benötigt zum Zei- 
lenvorschub nämlich den Code 13, 
während der Atari dazu den Code 155 
verwendet. Der dritte Druckmodus ist 
für Drucker gedacht, die nicht grafikfä- 
hig sind. Alle Codes, die beim Atari mit 
Grafikzeichen belegt sind, werden ein- 
fach in Standard-ASCII-Codes umge- 
wandelt. Druckt man nun beispiels- 
weise ein Listing aus, in dem Grafikzei- 
chen vorkommen, so erscheinen diese 
zwar nicht in ihrer richtigen Form, der 
Drucker jedoch interpretiert diese Zei- 
chen wenigstens nicht als Steuerco- 
des. Wie der Zeichensatz des Atari in 
diesem Modus aussieht, sehen Sie in 
Bild 1. Der vierte Modus ist für grafikfä 
hige Drucker gedacht. Mit jedem Grafik- 
zeichen wird auch ein entsprechender 
Steuercode an den Drucker geschickt, 
der ihn in den Grafikmodus umschaltet. 
Leider war man hierbei nicht ganz kon- 
sequent. Alle invertierten Zeichen wer- 


den nicht invertiert gedruckt (Bild 2). 
Bei normalen Basic-Listings fällt dies 
nicht weiter ins Gewicht. Verwendet 
man aber beispielsweise in einem Pro- 
gramm Maschinenunterroutinen, die 
als Strings und somit in Form von Grafik- 
zeichen abgelegt sind, enthält das 
Druckerlisting schlichtweg falsche 
Informationen. 

Neben den beiden Schnittstellen 
enthält das Interface 850 XL auch noch 
ein Kassettenrecorder-Interface. Man 
kann so statt des Atari-Datenrecorders 
auch jeden anderen handelsüblichen 
Kassettenrecorder an den Atari an- 
schließen. 

Benötigt man keine RS232-Schnitt- 
stelle, kann man sich auch ein reines 
Druckerinterface, also nur mit Centro- 
nics-Schnittstelle, kaufen. Zum Beispiel 
das Atari-Interface 72000 zum Preis 
von rund 250 Mark. Es benötigt kein 
Netzteil, da es direkt vom Atari mit 
‚Strom versorgt wird. Das Gehäuse istim 
Druckerkabel integriert. Mit Hilfe von 
Dipschaltern kann man auch hier zwei 
verschiedene Druckmodi einstellen. 
Der erste Modus schickt, mit Aus- 
nahme des »Carriage Return«- 
Zeichens, alle Codes unverändert wei- 
ter und entspricht somit wieder dem 
850-Interface von Atari. Der zweite 
Modus ist speziell für Besitzer des 
Atari-Schreibers interessant. Dieses 
Textverarbeitungsprogramm benutzt 
recht seltsame Codes für die deut- 
schen Umlaute. Beimanchen Druckern 
kann es daher zu Schwierigkeiten beim 
Ausdruck kommen. Durch eine ent- 
sprechende Codewandlung hebt die- 
ses Interface diesen Nachteil auf. 

Neben diesen beiden Interfaces sind 
vor allem aus den USA noch eine Reihe 
von Druckerschnittstellen, die mehr 
oder weniger dieselben Funktionen 
ausüben, auf dem Markt. Generell kann 
man sagen, daß die Anschaffung eines 
Druckerinterfaces und eines normalen 
Druckers dem Kauf eines Atari- 
Druckers vorzuziehen ist. Dies gilt vor 
allem dann, wenn man plant, sich im 
Laufe der Zeit einen anderen Computer 
anzuschaffen. 

(Wolfgang Czerny/wb) 
Bezugsquellen, 
Kunkal Industriebedarf, ZweibrückanerStr.8, 7000 Stuttgart31, 
Tel (0711) 884711 
Reinhard Wiesemann, Winckenbachstr. 3a, 5600 Wuppertal 2, 
Tet. (0202) 505077 
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Bild 1. Beispielsausdruck mit dem 
850XL-Interface. In Modus 3 werden 
sämtliche Steuer- und Grafikzeichen 
in ASCII-Zeichen umgewandelt. 


Bild 2. In Modus 4 lassen sich auf 
einem grafikfähigen Drucker auch 
Steuer- und Grafikzeichen wieder- 
geben. 


te. 


Rasende 
Daten 


Die Erweiterung »High Speed 


1050« macht ihrem Laufwerk 
Beine und erhöht auch noch die 
Speicherkapazität. 


er Floppy-Speeder »High 
D Speed 1050« für das Atari 

1050-Laufwerk besteht ledig- 
lich aus einer kleinen Erweiterungspla- 
tine. Auf dieser Platine befinden sich 
neben einigen Gatterbausteinen auch 
ein neuer EPROM, ein RAM-Baustein 
und ein Prozessor vom Typ 6502. Zum 
Einbau der Erweiterung muß man als 
erstes das Gehäuse der Diskettensta- 
tion öffnen. Dann hebt man vorsichtig 
das Laufwerk aus seiner Halterung. Nun 
liegt die Hauptplatine, auf der sich der 
alte ROM- und der alte RAM-Baustein 
befinden, offen da. Diese beiden ICs 
werden aus ihren Sockeln gezogen und 
statt dessen die Erweiterungsplatine in 
eine der frei gewordenen Fassungen 
gesteckt. Der Einbau ist hiermit bereits 
beendet. Es versteht sich von selbst, 
daß man dabei größte Vorsicht walten 
lassen muß. Der Garantieanspruch 
erlischt nämlich, sobald die Abschir- 
mung der Hauptplatine entfernt wurde. 


Schnell wie der Wind 


Ein auf diese Weise umgebautes 
Laufwerk hat nun mehrere Vorteile. 
Zunächst sorgt das neue EPROM 
dafür, daß man Disketten nun auch mit 
doppelter Dichte formatieren kann. Das 
normale 1050er-Laufwerk kann ja 
neben der einfachen Schreibdichte 
bereits mit erhöhter Schreibdichte for- 
matieren. Bei der einfachen Dichte wird 
mit 720 Sektoren von je 125 Byte gear- 
beitet. Das ergibt eine Speicherkapazi- 
tät von 88 KByte. Bei der erhöhten 
Schreibdichte steigt die Zahl der Sekto- 
ren auf 1040 an, pro Sektor sind aber 
immer noch 125 Byte vorgesehen. Die 
Speicherkapazität ist also auf 126 
KByte gestiegen. Doppelte Dichte 
bedeutet nun, daß man zwar wieder nur 
über 720 Sektoren, diesmaljedoch von 
je 256 Byte und somit über 180 KByte 
Speicherplatz verfügt. 

Die Formatierung auf doppelte 
Schreibdichte erfordert natürlich auch 
ein neues DOS. Aus diesem Grund 
bekommt man zusammen mit der Erwei- 
terungsplatine auch gleich eine Dis- 
kette mit zwei verschiedenen DOS- 
Versionen mitgeliefert. Bei »Warp- 
Speed-DOS« handelt es sich um ein 


erweitertes DOS 2.0, das wahlweise 
Disketten mit einfacher oder doppelter 
Dichte verarbeitet. Die andere DOS- 
Version mit dem Namen »MYDOS« ist 


auch interessant. Hiermit kann man 
auch wieder unterschiedliche Schreib- 
dichten formatieren. Daneben lassen 
sich beispielsweise aber auch Sub- 
directories anlegen. 

Alle Daten, die gespeichert oder 
geladen werden, werden in der neu 
hinzugekommenen RAM-Baustein zwi- 
schengespeichert. Ein Test ergab, daß 
sich bis zu 1875 Byte in diesem RAM 
unterbringen lassen. Speziell bei Datei- 
verwaltungsprogrammen kann es daher 
vorkommen, daß Datensätze von Dis- 
kette gelesen werden, ohne daß das 
Laufwerk tatsächlich auf die Diskette 
zugreifen muß. Der Schreib-/Lesekopf 
wird also bei Programmen, die häufigen 
Diskettenzugriff erfordern, geschont. 
Andererseits hat diese Sache auch 
einen Haken. Bearbeitetman eine Datei 
undsschließt man den einen Schreibvor- 
gang nicht korrekt mit CLOSE ab, so 
bleiben die Diskettenanweisungen im 
Puffer. Wechselt man nun die Diskette 
im Laufwerk, kann es passieren, daß die 
im Puffer verbliebenen Anweisungen 
auf die neue Diskette geschrieben wer- 
den und dort Files zerstören. 

Durch diese Erweiterung wird das 
Laufwerk auch um einiges schneller. 
Vor allem beim Lesen von Daten sind 
Geschwindigkeitssteigerungen um 50 
Prozent keine Seltenheit. Um welchen 
Faktor sich die Geschwindigkeit im ein- 
zelnen erhöht, ist dabei stark vom jewei- 


ligen Lesebefehl abhängig. So verrin- 
gert sich die Zeit, die das Laufwerk bei- 
spielsweise zum Booten des DOS.SYS- 
Files benötigt, nur um rund eine 
Sekunde, Liest man aber zum Beispiel 
1000 Zahlen mit dem INPUT-Befehl, so 
sind dazu statt rund 35 Sekunden nur 
mehr rund 20 Sekunden nötig. Das For- 
matieren einer Diskette beansprucht 
nur noch 26 Sekunden statt 38 Sekun- 
den. Speichert man Programme mit 
dem LIST-Befehl auf Diskette, so hält 
das Laufwerk sogar zwischenzeitlich 
immer wieder an, da die Datenübertra- 
gung langsamer ist als das Speichern. 


Formatieren 
in 26 Sekunden 


Diese Geschwindigkeitssteigerung 
hat allerdings auch einen Nachteil. 
Manche professionellen Programme 
lassen sich nicht mehr laden, da ihr 
Kopierschutz auf die veränderte 
Zugriffszeit reagiert. Mit geeigneter 
Software wäre es allerdings möglich, 
das Laufwerk wieder zu normalisieren. 
Dann stellt das Laden dieser Pro- 
gramme mit dem erweiterten Laufwerk 
auch kein Problem mehr dar. 

Die rund 230 Mark, die man für die 
Erweiterung ausgeben muß, sparen 
also nicht nur die Hälfte an Disketten 
ein, sondern bieten zusätzlich ein 
schnelleres Laufwerk. Somit ist der Ein- 
bau durchaus zu empfehlen. 

(Wolfgang Czerny/wb) 


Bezugsquelle: IRATA, Hormannstr. 9, 1000 Berlin 44, 
Tel: (030) 6212071 
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Die Raupe wird zum 
Schmetterling 


ür den Atari 800XL gibt es jetzt 
F. eine Erweiterungsplatine, durch 
die der 800XL voll kompatibel 
zum 130XE wird. Um es allerdings 
gleich vorweg zu sagen: Wer Verände- 
rungen an der Hardware seines Atari 
800XL vornimmt, riskiert natürlich den 
Verlust des Garantieanspruchs. Man 
sollte den Einbau dieser Platine also 
entweder dem Fachmann überlassen 
oder aber entsprechende Grundkennt- 
nisse mitbringen. 

‚Auf der neuen Platine befinden sich 
neben einigen Gatterbausteinen sechs 
zusätzliche RAM-Bausteine. Die Erwei- 
terung hat ihren Platz direkt auf der 
Hauptplatine des Atari 800XL. Das 
Gehäuse muß also geöffnet und das 
Abschirmblech entfernt werden. Die 
alten RAM-Bausteine werden aus ihren 
Sockeln gezogen und in die dafür vor- 
gesehenen Sockel auf der Erweite- 
rungsplatine eingesetzt. Die Platine 
selbst wird in zwei der so freigeworde- 
nen Sockel auf der Hauptplatine 
gesteckt. Nun sind noch einige Drähte 
von der Erweiterungsplatine an ver- 
schiedenen Stellen auf der Hauptpla- 
tine anzuschließen. Da Lötarbeiten ver- 
mieden werden sollten, schließt man 
die Drähte direkt an verschiedene ICs 
an. Dies geschieht, indem man die 
Drahtenden zusammen mit den IC- 
Anschlüssen in die Sockel klemmt. 
Manche Fälle erfordern aber auch ein 
Hochbiegen der Anschlüsse der ICs, 
so daß man die Drähte direkt anklem- 
men kann. 

Beim Einbau ist etwas Fingerspitzen- 
gefühl unumgänglich. Sonst kann esall- 
zuleicht passieren, daß man ver- 
sehentlich ein IC-Beinchen abbricht 
oder das eine oder andere IC durch sta- 
tische Aufladung zerstört. Aus diesem 
Grund sollte man vielleicht überlegen, 
ob man die Erweiterungsplatine nicht 
doch vom Hersteller der Platine in sei- 
nen Atari einbauen läßt. 

Ist die Platine an ihrem Platz, verfügt 
man über einen zusätzlichen RAM- 
Speicherbereich von 64 KByte. Leider 
sind diese 64 KByte nicht genauso 
ansprechbar wie der normale RAM- 
Speicher. Da der Atari als 8-Bit- 
Computer nur 64 KByte direkt adres- 
sieren kann, muß man den Zusatzspei- 
cher über das sogenannte »Bank- 
Switchings-Verfahren ansprechen. Gibt 
man in Basic also beispielsweise den 
FRE(0O)-Befehl ein, hat sich am freien 


Um in den Genuß von 64 KByte 
RAM mehr Speicherplatz zu 
kommen, muß man sich nicht 
unbedingt einen Atari 130XE 
kaufen. Eine Platine verwandelt 
Ihren 800XL in einen 130XE. 


Speicherplatz scheinbar nichts ge- 
ändert. 

Der Zusatzspeicher ist in 4 Banken 
aufgeteilt, die zu erreichen es einen 
kleinen Umweg erfordert. Das Bild 
zeigt, wie die Speicherbereichsvertei- 
lung unter 128-KByte-RAM aussieht. 
‚Jede der vier Banken umfaßt 16 KByte 
und muß separat adressiert werden. 
Diese Aufgabe übernimmt beim 800XL 
der PIA-Baustein. Dieser Interface- 
Baustein verfügt über zwei 8 Bit breite 
Ports. Bei den alten Atari 400 und 800 
übernahmen diese beiden Ports die 
Abfrage der Joysticks. Beim 800XL hin- 
gegen wurden zwei Joystickports ein- 
gespart. Der dadurch freigewordene 
zweite Port der PIA wird nun zur Steue- 
rung der MMU (Memory Management 
Unit oder Speicherverwaltungs-Einheit) 
eingesetzt. POKEt man also einen ent- 
sprechenden Wert in das Portregister, 
hat man der MMU so mitgeteilt, welche 
Bank angesprochen werden soll. 


Speicherriese 800XL 


Der Zusatzspeicher eignet sich also 
weniger zur Aufnahme größerer Basic- 
Programme, sondern vielmehr dazu, um 
darin Daten abzulegen; Daten wie zum 
Beispiel Maschinenunterprogramme 
oder Player/Missile-Daten. Man kann 
natürlich auch mehrere Grafik-Bilder 


darin ablegen oder ganz einfach allge- 
meine Datenfelder. Der Vorteil liegt klar 
auf der Hand, schreibt man ein umfang- 
reiches Programm, kann manches 
Nachladen von Diskette entfallen. Pro- 
gramme wirken dann nicht mehr »lang- 
atmig« und der Anwender wird nicht 
mehr einer Geduldsprobe unterzogen. 
Arbeitet man beispielsweise mit dem 
Atari-DOS 2.5, ist es ohne weiteres 
möglich, in diesem Speicherbereich 
eine RAM-Disk anzulegen. Diese RAM- 
Disk kann dann wie ein Diskettenlauf- 
werk angesprochen werden. Man spei- 
chert. oder lädt seine Programme nur mit 
der Gerätebezeichnung »D8:«. Da beim 
Laden und Speichern von Programmen 
in die RAM-Disk keine Input/ 
Output-Operationen, sondern lediglich 
Speicherverschiebungen durchgeführt 
werden, gewährleistet dies so natürlich 
ein viel schnelleres Arbeiten. Befindet 
sich das DUPSYS-File beispielsweise 
in der RAM-Disk, ist man beim Aufruf 
des DOS-Befehls innerhalb von Sekun- 
denbruchteilen bereits im DOS-Menü. 
Der Ausbau eines Atari 800XL auf 
128 KByte RAM ist also eine durchaus 
lohnenswerte Angelegenheit. Lobens- 
wert ist auch die Tatsache, daß der 
Selbsteinbau sowie der Einbau vom 
Hersteller das gleiche, nämlich 259 
Mark kostet. Sollten Sie also kein erfah- 
rener Bastler sein, ist es ratsam, den 
Ausbau vom Hersteller vornehmen zu 
lassen. Schließlich kostet es nichtmehr 
und eine einwandfreie Funktionsweise 
des Computers ist auch gewährleistet. 
Billiger als ein neuer 130XE ist dies auf 
jeden Fall. 
(Wolfgang Czerny/wb) 


Bezugsauells: Wühelm Bock, Bleichstr. 5, 4790 Paderborn, 
Tel (05251)32891 


Adressen Normaler RAM- und ROM-Bereich | Erweiterter RAM-Bereich 

65536-SFFFF Antic, Pokey, Gtia, Betriebssystem 

42192-$C000 ROMs 

42191-SBFFF Basic oder RAM Bildschirmspeicher 

32768-$8000 

32767-S7FFF RAM Bank 3 $0000-$FFFF 
Bank 2 $8000-$BFFF 
Bank 1 $4000-$7FFF 

16384-84000 Bank 0 $0000-$3FFF 

16333-S3FFF Betriebssystemvariablen usw. 

00000-50000 


Die Speicheraufteilung mit 128 KByte-RAM 
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Guardıan saucers Approachıng 


Die Angst des Raumfahrers vor der Untertasse: »Koronis Rift« 


»Dimension X« setzt Grafik-Maßstäbe 


Spielmaschine 


Daß der Atari bis heute einen 
Ruf als Spielcomputer genießt, 
hat seine guten Gründe. Wenn 
auch Sie mit Ihrem Computer 
gerne eine Runde spielen möch- 
ten, finden Sie hier einige allge- 
meine Tips. 


piele-Freaks, die einen 800XL 
Ss oder 130XE besitzen, haben 

momentan allen Grund zu leich- 
tem Frust. Die beiden Atari-Computer 
sind bekanntlich Sound- und Grafik- 
Computer allerhöchster Güte. Leider 
vernachlässigen die Softwarefirmen 
seit ein paar Jahren die Atari- 
Heimcomputer. Es erscheinen bei wei- 
tem nicht so viele Programme wie für 
den Marktführer Commodore 64. Hin 
und wieder gibt es auch Umsetzungen 
von C 64-Titeln, deren Qualität aller- 
dings mitunter sehr zu wünschen übrig- 
läßt, und die auch die Hardware nicht 
richtig ausreizen. 


Frisch aus den USA 
im Direktimport 


Der Atari-Spieler hat kein leichtes 
Leben, da in letzter Zeit relativ wenig 
Software-Nachschub anrollt. Bis auf 


amerikanischer Programme im Angebot 


Altari 


haben, vernachlässigen die englischen 
Softwarehäuser XL und XE geradezu 
sträflich. In den USA werden neue 
Spiele zwar bevorzugt für C 64 und 
Apple Il entwickelt, doch gibt es eine 
ganze Reihe von Atari-Umsetzungen, 
die aber hierzulande nur sehr schwer zu 
erhalten sind. So kann man beim 
Compy-Shop zum exklusiven Preis von 
je 149 Mark einige direkt importierte 
‚Atari-Programme kaufen, die nur vor- 
erst oder generell nicht in Deutschland 
vertrieben werden. Auf der jüngsten 
Angebotsliste findet man hier Lecker- 
bissen wie den neuen U-Boot- 
Simulator von Microprose, »Silent Ser- 
vice«, die Synapse-Adventures »Mind- 
wheel«, »Essex« und »Brimstone« so- 
wie das Autorennen »Pitstop Ile. 


»Winter Games« 
im Anmarsch 


Etwas billiger kommen Sportspiel- 
Fans weg. Zwei der drei erfolgreichen 
Olympia-Simulationen von Epyx gibt es 
auch auf Diskette für Atari-Computer: 
»Summer Games« und »Winter Games« 
kann man zum erschwinglichen Preis 
von knapp 60 Mark kaufen. Die Atari- 
Versionen enthalten die Original- 
Disziplinen, sind grafisch aber nicht 
ganz so stark. 

Das Programmierteam von Lucasfilm 
Games hat erst vier Spiele veröffent- 
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licht, doch ein Titel ist besser und er- 
folgreicher als der andere: »Rescue on 
Fractalus«, »Ballblazer«, »The Eidolon« 
und »Koronis Rift«. »Koronis Rift« ist die 
ausgereifteste und interessanteste 
Neuerscheinung. Als Raumkapitän 
düsen Sie mit Ihrer Lieblingsuntertasse 
durchs All. Plötzlich schlagen alle 
Instrumente aus: Sie haben Koronis 
Rift, den sagenumwobenen Planeten 
einer alten Rasse, wiederentdeckt. Im 
Raumgleiter rasen Sie über die Plane- 
tenoberfläche, um alte_ Raumschiff- 
Wracks nach wertvollen Überbleibseln 
der Supertechnik der verschollenen 
Ureinwohner zu durchsuchen. Mit die- 
sen Teilen kann man dann das eigene 
Schiff besser ausrüsten, was auch 
nötig ist, wenn man den massiven 
Angriffen der Wächter-Flotten auf 
Dauer widerstehen will. 


Neues von den 
Atari-Experten 


Vor allem begeistert das Spiel mit sei- 
ner Grafik: Die Gebirgsketten von Koro- 
nis Rift ziehen perspektivisch perfekt 
an Ihrem Cockpit vorbei, und an Bord 
Ihres Mutterschiffs wacht ein toll ani- 
mierter Roboter über die Beutestücke. 
Auch bei den anderen drei Lucasfilm- 
Spielen sind spannende Handlung und 
schnelle Grafik Trumpf. »Ballblazer« ist 
eine Art Fußballspiel des 4. Jahrtau- 
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sends, in dem die Bälle mit einem Ma- 
gnetfeld eingefangen werden. »Rescue 
on Fractalus« ist ähnlich wie »Koronis 
Rift« eine Planeten-Expedition, bei der 
diesmal abgeschossene Raumpiloten 
vor den finsteren Jaggis gerettet wer- 
den müssen. Der Vorspann dieses 
Spiels gehört übrigens mit zum besten, 
was man je an animierter Grafik auf 
einem Heimcomputer gesehen hat. 


Abenteuerspiele in 
Deutsch und Englisch 


»The Eidolon« schließlich ist eine 
Expedition durch ein labyrinthartiges 
Höhlensystem, in dem es von merkwür- 
digen Kreaturen nur so wimmelt. 

‚Abenteuerlustige Atari-Fans sitzen 
keinesfalls auf dem trockenen. Selbst 
wenn Sie keine Diskettenstation haben, 
können Sie mit Ihrem Computer ein saf- 
tiges Adventure spielen. Das englische 


Schlag auf Schlag: »Karateka« 


Softwarehaus Level 9 ist auf Abenteu- 
erspiele spezialisiert und bietet auch 
einige Programme für die Ataris an. 
Zirka30 Mark kostet Sie der Spaß eines 
Grafik-Adventures mit guten, allerdings 
englischen Texten und vielen Bildern. 
Nur auf Floppy gibt es das hervorra- 
gende Einsteiger-Adventure The Dal- 
las Quest« (Top-Grafik und Top- 
Spielwitz, 59 Mark) und die 
Gehirnzellen-Feger »Mask of the Sun« 
und »Serpent's Star« (je 79 Mark). Der 
Bestseller »Mask of the Sun« liegt auch 
in einer voll eingedeutschten Version 
vor und nennt sich hier »Das Geheimnis 
der Aztekenmaske«. 


Neben Tops auch Flops 


An dieser Stelle mal ein paar Warnun- 
gen vor Neuerscheinungen der letzten 
Monate, die viel Spielwitz versprechen, 


aber nur wenig halten. »Super Zaxxon«, 
die Fortsetzung zu »Zaxxon«, istein gra- 
fisch guter, aber spielerisch ausge- 
sprochen liebloser Krawumm-Aufguß. 
Das Jump-and-Run-Spiel »Conan« hat 
mit dem barbarischen Leinwandhelden 
herzlich wenig zu tun. Die Handlung 
wirkt etwas an den Haaren herbeigezo- 
gen, und wer eine auffallende Ähnlich- 
keit zwischen Arnold »Conan« Schwar- 
zenegger und dem mickrigen Bild- 
schirm-Männlein feststellt, muß schon 
eine reichlich rege Phantasie haben. 
Selbst wenn man solche Hüpfspiele 
mag, überkommt einen rasch das große 
Gähnen. Da greife man lieber zum guten 
alten »Bruce Lee«, der viel mehr Spiel- 
spaß bietet. 


EvergreenTips 
für die Sammlung 


Überhaupt gibt es dank der Kompati- 
bilitätt zur 400/800-Serie einige 


hinter dem Apple Il-Original nicht ver- 
stecken braucht. 

Ataris 8-Bit-Computer gehören 
sicher zu den mittelfristig auslaufenden 
Modellen auf dem Markt: Der 800XL 
wird zu Schleuderpreisen ausverkauft, 
und der neue 130XE verzeichnet nur 
mäßige Absatzzahlen. Angesichts die- 
ser Situation ist auch kaum mit einem 
wesentlichen Aufschwung beim Spiele- 
Angebot zu rechnen. Auf der anderen 
Seite dürfte der Nachschub von heute 
auf morgen keinesfalls völlig einschla- 
fen, da vor allem in Deutschland und 
den USA noch größere Stückzahlen auf 
dem Markt sind. Wer aber in den näch- 
sten Jahren in einem üppigen Software- 
Angebot schwelgen will, sollte langsam 
einen Umstieg einplanen. Doch das 
Angebot an guten Atari-Spielen ist so 
groß, daß man ein ganzes Weilchen 
braucht, um sich durchzuspielen. 


Zu guter Letzt noch ein Titel, der uns 
erst kurz nach Redaktionsschluß 
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Schöne Grüße vom »Ballblazer«-Finale 


betagte Klassiker, die auch heute noch 
spielenswert sind. Wer seinen Atari 
noch nicht allzulang hat und verzweifelt 
nach neuen Spielen sucht, sollte sich 
mal nach Evergreens wie »M.U.L.E.«, 
»Archon« oder »Dimension X« umhören. 
Letzteres gehört zu den wenigen Atari- 
Programmen, die nicht für den C 64 
umgesetzt wurden. Einfacher Grund: 
Das Schießspiel, das im wesentlichen 
von seiner schnellen Grafik lebt, wäre in 
der Commodore-Version viel zu lang- 
sam geworden. Und wer sich nach der 
guten alten Computer-Steinzeit sehnt, 
kann sich immer noch den Original-»Pac 
Man« zulegen, der vor Jahren Ataris 
Superhit für das Videospiel-System 
2600 war. Es werden aber hier und da 
noch Erfolgstitel anderer Computer 
nachträglich umgesetzt. So gibt esjetzt 
auch eine Atari-Version von Broder- 
bunds ‚, langsamem, aber stilvollen 
Sport-Actionspiel »Karateka«, die sich 


erreichte und den wir deshalb leider 
ohne Bild vorstellen müssen: »Merce- 
nary« von »Encountere-Autor Paul Woa- 
kes. Das Spiel ist eine einfallsreiche 


Neuer Hit 
mit 3D-Grafik 


Mischung aus Flugsimulator, Geschick- 
lichkeit, Strategie und Action und ist zu 
rechtzivilen Preisen (42 Mark Kassette, 
49 Mark Diskette) erhältlich. Das Glanz- 
stück von »Mercenary« sind die vielen 
3D-Vektorgrafiken, die diesen komple- 
xen Spielgenuß zu einem garantierten 
Renner für 1986 werden lassen. 
(Heinrich Lenhardt) 


Bezugsquelle: 
Compy-Shop, Gneisenaustr, 29, 4330 Mülheim/Ruhr, 
Tel. (0208) 497169 (USA-Importe) 

Funtastic, Tannhäuserplatz 22, 8000 München 80, 
Tel (089) 939894 

Teledienst, Mainzer-Tor-Anlage 45, 6360 Friedberg, 
Tel. (06031) 91650 
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Cartridge-Experimente 
leichtgemacht 


»CES« hat nichts mit der 
bekannten Messe in Las Vegas 
zu tun. Hier handelt es sich 
um ein Cartridge-Experimentier- 
System zum Selberbasteln. 


s gibt verschiedene Wege, den 
E Atari-Computer mit Software zu 

versorgen. Programme oder 
Daten können einerseits manuell über 
die Tastatur in den Arbeitsspeicher des 
Computers gelangen. Das ist aber, wie 
das Einlesen von Daten mit dem Kas- 
settenrecorder, ein recht langwieriger 
Vorgang. Mit einer Diskettenstation 
geht es schon einige Größenordnun- 
gen schneller. 

Die maximale Geschwindigkeit ist bei 
Verwendung eines ROM-Cartridges zu 
erreichen, da hier dem Mikroprozessor 
ein direkter Datenzugriff erlaubt ist. Als 
weiterer Vorteil wäre noch das problem- 
lose Austauschen der Cartridges zu 
nennen. Ebenso erfreulich ist, daß nach 
dem Ausschalten des Computers die 
Informationen in den ROMs erhalten 
bleiben. 

Beim Atari 800XL/130XE ist für den 
Anschluß solcher Cartridges ein soge- 
nannter Cartridge-Slot vorgesehen. Er 
befindet sich bei Computern der XL- 
Serie auf der Oberseite des Gerätes, 
beim 130XE an der Rückseite. In der 
Anschlußbelegung unterscheiden sie 
sich jedoch nicht. 

An Software auf Cartridge sind 
sowohl Spiele als auch Programmier- 
sprachen erhältlich. Je nach Programm 
werden 8KByte oder 16KByte- 
Cartridges eingesetzt. Diese ROM- 
Cartridges fügen sich, wie aus Bild 1 
ersichtlich ist, in den Speicheradreß- 
raum des Computers ein. 

Ein Cartridge mit einem eigenen Pro- 
gramm war vielleich schon hin und 
wieder der Wunsch eines Atari- 
Besitzers. Oder wäre es nicht auch 
erfreulich, die Software eines käuflich 
erworbenen Cartridges den eigenen 
Bedürfnissen anpassen beziehungs- 
weise erweitern zu können? Dieser 
Wunsch als Vater des Gedankens war 
der Anstoß für die Entwicklung der in 
Bild 3 gezeigten Schaltung. 

Das CES (Cartridge-Experimentier- 
System) befindet sich auf einer Platine 
im Europaformat (100 mm x 160 mm). 
Es wirdüber eine Flachbandleitung und 
einen Cartridge-Slot-Stecker an den 


12 


normalen Modulschacht des Atari- 
Computers angeschlossen. Die Platine 
des CES weist ebenfalls ein Slot zur 
Aufnahme der üblichen Cartridges auf. 
Ein Wahlschalter (SW 1) ermöglicht die 
Entscheidung, mit dem Cartridge der 
Platine oder mit CES zu arbeiten. Wird 
kein Cartridge benötigt, somuß es nicht 
extra entfernt werden. Eine eigene 
Funktion erlaubt die Trennung von CES 


beziehungsweise Cartridge und Com- 
putersystem. 

Mit dem CES lassen sich verschie- 
dene Cartridge-Größen simulieren. Es 
sind sowohl 8-KByte- als auch 
16-KByte-Nachbildungen realisierbar. 
Für die Datenspeicherung sind zwei 
statische 8-KByte-RAM-Bausteine ver- 
antwortlich, die jederzeit eine Ande- 
rung der Cartridge-Software erlauben. 


So sieht die fertig aufgebaute Schaltung aus 


Die Schreibfreigabe-Leitung (WE) 
der RAM-Bausteine liegt normaler- 
weise auf High-Pegel, so daß nur das 
Lesen der Module gestattetist. Zur Pro- 
grammierung des CES kann man 
jedoch mit Hilfe des Schalters SW 2 auf 
RAM-Betriebsart umschalten (Stellung 
»RAM«). Das CES verhält sich dann wie 
eine ganz gewöhnliche RAM-Erweite- 
rung. Die Schreibfreigabe kann aber 
auch softwaregesteuert erfolgen (SW 2 
in Stellung »Softswitch«). Dazu jedoch 
später mehr. 

Zur Einstellung der Betriebsart des 
CES (Größe, Lage im Speicheradreß- 
raum etc.) dienen zwei DIP-Schalter 
SA1 bis SA8 und SB1 bis SB4. 

Zunächst einiges zu den am 
Cartridge-Slot des Atari angebrachten 
Anschlußleitungen. Da wäre einerseits 
der vollständige Datenbus, die Adreß- 
leitungen AO bis A12 sowie einige Steu- 
erleitungen und eine 5-Volt-Spannungs 
versorgung. 

Mit dem 13-Bit-Adreßbus läßt sich ein 
Speicheradreßraum von 8 KByte 
ansprechen. Über die Meldeleitungen 
M4 und MS (Aktiv High) wird dem Com- 
puter mitgeteilt, in welchem Speicher- 
bereich des Systems sich ein Cartridge 
befindet. Die Speicherverwaltungslogik 
im Atari weiß dann, an welchen Stellen 
sie das interne RAM ausblenden und 
das Cartridge einfügen soll. Dabei 
bedeutet: 


M4=High - 8 KByte Cartridge im 
Bereich zwischen 
$8000 bis $IFFF 

M5=High - 8 KByte Cartridge im 


Bereich zwischen 
$A000 bis $BFFF 

Liegen beide Meldeleitungen auf 
High, so entspricht das einem 16K- 
Cartridge im Adreßbereich von $8000 
bis $BFFF. 

Die Steuerleitungen S4 und S5 sind 
Low-Aktiv und kommen vom Computer. 
‚Sie dienen dem Chip-Select (Baustein- 
Auswahl) der ROMs im Cartridge. S4 
wird Low, wenn ein Zugriff auf den Spei- 
cherbereich zwischen $8000 bis 
$YFFF erfolgt. Bei einem Zugriff auf 
den Bereich von $A000 bis $BFFF 
wird S5 Low. 

Diese Steuer- und Meldeleitungen 
werden über den Wahlschalter SW 1 
entweder mit dem Cartridge-Slot auf 
der Platine des CES oder mit den ent- 
sprechenden Anschlußpunkten der 
CES-Logik verbunden; abhängig 
davon, ob ein normales Cartridge im 
Slot steckt oder das CES betrieben 
werden soll. Befindet sich SW 1 in Mit- 
telstellung, laufen die Steuer- und Mel- 
deleitungen leer. Der Computer regi- 
striert dann, daß kein Cartridge ange- 
schlossen ist. 

Eine weitere Steuerleitung am 
Cartridge-Siot des Atari ist die 


aK | #K 


ROM | ROM | ROM 


|Bank 1|Bank 2]Bank 3] 


Bild 1. So fügen sich die verschiedenen Cartridge-Arten in 
den Speicheradreßraum der Atari-Computer ein 


Schreibfreigabe-Leitung WE. Sie steht 
immer dann auf Low, wenn in eine Spei- 
cherstelle geschrieben wird. Die 
Schreibfreigabe-Signale werden nun 
beim CES über eine Tor-Schaltung an 
die WE-Anschlüsse der RAMs geleitet. 
Damit ist es möglich, ein Beschreiben 
derjenigen RAMs, die zum CES gehö- 
ren, zu verhindern (ROM-Betrieb). 

Die Anschlüsse des Cartridge-Slot 
am Atari reichen schon aus, um ein nor- 
males Cartridge mit dem CES zu simu- 
lieren. Mit den beiden noch verbleiben- 
den Anschlüssen PHI2 und CCTL las- 
sen sich noch einige Zusatzfunktionen 
realisieren. 

Am Anschluß PHI2 steht der System- 
takt des Atari zur Verfügung, von dem 
alle anderen Speichersteuersignale 
abgeleitet werden (zum Beispiel 
Schreibfreigabe). Besondere Bedeu- 
tung kommt jedoch dem Anschluß 
CCTL zu. Diese Leitung wird aktiv Low, 
wenn ein Zugriff auf den Speicher- 
adreßraum $D500 bis $DSFF erfolgt. 


Im Atari ist dieser Speicherbereich 
weder durch das RAM noch vom ROM 
belegt. Die CCTL-Leitung wird nun beim 
CES in Verbindung mit den untersten 6 
Adreßbusleitungen und dem System- 
takt PHI2 zur Software-Steuerung des 
CES benutzt. Mit Hilfe von IC 3 (6 Bit 
Dual-Flipflop) können die Zustände der 
Adreßleitungen AO bis A5 bei einem 
Zugriff auf den Speicherbereich 
$D500 bis $DSFF gelegt werden. 
Diese gespeicherten Zustände werden 
nun zur Steuerung des CES benutzt. 
Ein Beispiel soll dies verdeutlichen: 

Soll ein Zugriff auf die Speicherstelle 
$D510 erfolgen, so sind die unteren 6 
Adreßleitungen zum Zeitpunkt des 


Zugriffs (Lesen oder Schreiben!) fol- 
gendermaßen gesetzt: 
AO bis A3 = Low 
A4 = High 
AS =Low 

Dieser Zustand wird nun in IC 3 
gespeichert und liegt auch so lange an 
dessen Ausgängen QO bis Q5, bis eine 
andere Adresse im Bereich zwischen 
$D500 bis $D5SFF angesprochen wird. 
So läßt sich dann ein neuer Zustand 
speichern. In unserem Beispiel liegt 
also an Ausgang Q4 ein High Pegel an. 


Gartridge- 


Unterseite Oberseite (*) 


(*) Zeigt bei der XL-Serie zur Tastatur 


Bild 2. Die Anschlußbelegung des 
Atari Cartridge-Slot 
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“ Aus der Schaltung des CES ist die 
Verbindung des Ausgangs Q4 mit dem 
Schalter SW 2 ersichtlich. Nimmt dieser 
Schalter nun die Stellung »Softswitch« 
ein, so wird die Torschaltung für die 
Schreibfreigabe zu den RAMs des CES 
über den High-Pegel des Ausgang Q4 
von IC 3 geöffnet und somit über die 
‚Adreßleitung A4 gesteuert! In unserem 
Beispiel wird also, sobald sich 
SW 2 in Stellung »Softswitch« befindet, 
das CES in RAM-Betriebsart geschal- 


14 


tet. Will man wieder in den ROM- 
Betrieb zurück, genügt jetzt ein Zugriff 
auf eine Speicherstelle im Bereich 
$D500 bis $DSFF, bei der die Adreßlei- 
tung A4 auf Low bleibt. Ein Zugriff auf 
die Adresse $D500 bringt den Aus- 
gang Q4 von IC 3 auf Low-Pegel und 
sperrt damit wieder die Torschaltung. 
Das RC-Glied R1 bisC1 am Cir-Eingang 
von IC 3 sorgt dafür, daß nach dem Ein- 
schalten des Computers und des CES 
‘alle Ausgänge auf Low gesetzt sind. 


22 8 2 
282 ä 5 
8: a 


Bild 3. Schaltplan zu CES (Cartridge- 
Experimentier-System) 


ıa 


Integrierte Schaltkreise 

IC1, 102 HM6264LP-1S (oder 
ähnlich) 

[(ex3 7415174 

(Z1 bis Z6) = IC4 741504 

(U1 bis U3) = IC5 741500 

(01 bis 03) = IC6 741502 

Schalter 

swi Drehschalter, drei Stel- 
lungen mit vier 
Schaltebenen 

Sw2, SW3 Schiebeschalter 1xUM 

SAT bis SAB DIP-Schalter, 8xEin 

SB1 bis SB4 DIP-Schalter, 4xEin 

Widerstände 

R1,R7 4,7 KOhm 

R2 220 Ohm 

R3,R4,R5,R6 47 KOhm 

R8, RO 270 Ohm 

Kondensatoren 

c1,c3 100 a, 6V3 (Eiko) 

c2 1n8 (Keramik-Elko) 

Sonstiges: 

Zur Pufferung wahlweise ein 3.6-Volt-Akku- 

oder ein 3300-„Farad-Elko 


Bild 4. Bauteileliste zum Cartridge- 
Experimentier-System 


Im CES werden für die Datenspeiche- 
rung statische CMOS-RAMS des Typs 
6264LP-15 verwendet, die im nicht 
selektierten Zustand, also im Standby- 
Betrieb, eine sehr geringe Stromauf- 
nahme haben. Deshalb ist in der Schal- 
tung eine Pufferung der Spannungsver- 
sorgung für die RAM-Bausteine vor- 
gesehen. So bleiben auch nach 
Abschalten der Computerspannungs- 
versorgung die Daten im CES für län- 
gere Zeit erhalten. Man muß nicht unbe- 
dingt einen NC-Akku zur Pufferung ein- 
setzen. Ein Elko mit 3300 Mikro-Farad 
im CES erfüllt für immerhin ganze 11 
Stunden denselben Zweck. Soviel zur 
Arbeitsweise der Schaltung. 

Wichtig: Soll die Einstellung der DIP- 
Schalter des CES verändert werden, so 
müssen zuvor Computer und Pufferung 
des CES ausgeschaltet werden! 

Nun einige Erläuterungen zu den 
Betriebsarten, wie sie in Tabelle 1 auf- 
geführt sind. 
8-KByte-Cartridges im Bereich zwi- 
schen $8000 und $SIFFF 

In dieser Betriebsart steht das CES 
direkt im Anschluß an den Adreßraum 
des eingebauten Basic zur Verfügung. 
Man kann dort zum Beispiel sehr ein- 
fach oft benötigte Hilfsprogramme 
unterbringen. Ist SW 2 in Stellung 
»RAM«, sokann man dasCES von Basic 
aus wie ein RAM betreiben. In Stellung 
»Softswitch« erfolgt eine softwaremä- 
Bige Umschaltung zwischen RAM- und 
ROM-Betrieb. Wird die Speicherstelle 
54544 dezimal (zum Beispiel mit 
»POKE 54544,1«) angesprochen, so 
wird der RAM-Betrieb eingeschaltet. 
Mit »POKE 54528,1 befindet man sich 
wieder im ROM-Betrieb. 


8K-Cartridge 

- Bereich $8000 - SIFFF 

- Bereich $8000 - $IFFF 
(softwaregesteuert) (ausblendbar) 

- Bereich $AO00 - SBFFF 

16K-Cartridge 

- Bereich $8000 SBFFF 

16K-Switch-Cartridge 

- Bereich $AO00 - SBFFF 

(mit Bank-Switching) 


© = Schalter geöffnet | 


Ermoeglicht das Auslesen von 
Daten aus dem im Slot befind- 
ichen Cartridge bzw. das Kopie- 
en von Daten aus dem RAM in das 
Cartridge-Experimentier-Systen. 


5 SRCBOT = Ant . Bzw Endadr. 
$ SRCTOP des Quellspeicherber. 


DSTBOT = Ant . des Ziel- 
speicherbereiche 
TenP = 308 #Zwischenspeicher 


FCONSOL-Tasten 


ConsoL = spair 
ADABE zNMI-ENABLE-Ctr1. 


NMIEN = 
3 

RANCAR = $D51@ ;Adr. #. Schreid- 
3 jfreigabe (je nach 
s ;Betriebsart des 


“- soo 
SUSTRT 
{DA MIEN  ;Alle Interrupts 
STa Tem® _ ;sperren! 
. 
STA MILEn 
MISTRT 
LDA CONSOL ;Warten bis die 
Ger 5 'START’-Taste 
BNE NISIRT jgedrueckt wurde. 
STA RAMCAR ;Schreibfreigabe 
s#uer CES 
TRANS 


Lox ® <srcroe 

= LDY # >SRCTOP 
LDA SREBOT ;Kopiere Daten von 
# FSRCBOT bis SRCTDP 

nach DSTROT #4. 


;CES auf ROM-Be- 
jtrieb schalten. 


sinterrupts frei- 
geb: 


sAutostartfile 
ASIRT ; erzeugen! 
WORD SUSTRT 


4 Tabelle 1. Die Betriebsarten des CES 


«Listing 1. Quelltext zum Lesen des 
Inhalts eines Cartridges (MACI65) 


8-KByte-Cartridge im Bereich zwi- 
schen $8000 bis $9FFF; software- 
gesteuert und ausblendbar 

Diese Betriebsart erlaubtes, das CES 
per Programm außer Betrieb zu setzen 
und das darunterliegende RAM des 
Atari zu aktivieren. So erhält man im 
Adreßraum $8000 bis $YFFF zwei 
8 KByte große Speicherbereiche. Ein- 
mal das RAM des Computers, dessen 
Inhalt nach Ausschalten des Atari ver- 
lorengeht; zum anderen das CES, des- 
sen Inhalt durch die Pufferung mittels 
Akku oder Elko auch nach Abschalten 
des Computers erhalten bleibt. 

Folgende Zustände sind zum Beispiel 
von Basic aus steuerbar: 

»POKE 54528,1« - CES als ROM akti- 
viert (=Einschaltzustand) 

»POKE 54544,1« - CES als RAM akti- 
viert 

»POKE 54560,1« - RAM des Compu- 
ters aktiviert. 

8-KByte-Cartridge im Bereich zwi- 
schen $A000 bis $BFFF 

Dies ist wohl die am häufigsten anzu- 
treffende Cartridge-Version für Atari- 
Computer. Die meisten Cartridge- 
‚Spiele liegen in diesem Speicheradreß- 
bereich. Aber auch das Atari-Cartridge- 
Basic, wie es früher für die Atari 400 
und 800 Computer geliefert wurde, 
befindet sich in diesem Bereich. 

Vom eingebauten Basic der XL- und 
XE-Serieistdas CESin dieser Betriebs- 
art nicht mehr zu kontrollieren. Das ein- 
gebaute Basic liegt nämlich ebenfalls im 
gleichen Adreßraum und ist deshalb bei 
eingeschaltetem CES desaktiviert. 

Über die Maschinensprache ist 
jedoch ein Zugriff auf den Inhalt des 
CES möglich. Bei Listing 1 handelt es 
sich um ein solches Umschaltpro- 
gramm. Mit einem Assembler, wie zum 
Beispiel MAC/65, kann man Maschi- 
nenspracheprogramme für jeden belie- 
bigen Adreßraum schreiben, assem- 
blieren und dann auf Disk speichern. 
Ein solches Programmfile wird dann 
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SUITCHER 


1850 ;}Ermoeglicht das Umschalten vom 
5CES auf das im Slot des CES 
1058 ;befindl. Cartridge und umgekehrt. 
1878 ;Nach Progranmstart 'haengt’ der 
Computer und es kann mit dem 

1@9@ ;Wahlschalter Sm 1 auf der Platine 


Zwi schenspeicher 
$CARTCK berechnen 
SCONSOL-Tasten 

SNMI-ENABLE-Cer1. 


1228 “106000 

1230 ; 

1248 SWITCH 

1258  LDANMIEN ;Alle Interrupts 
1268  STATENP  jsperren! 

1278 LDa 0a 

12808 STA WIEN 

1298 WTSTRT 

1308 CONSOL ;karten bis die 
ıs10 ws 3 START '-Taste 
1320 ENE WISTRT  jgedrusckt wurde. 
1330 NEı 

1348 JER NCART  sNeue Cart.-Check- 


sunne berechnen. 


sinterrupts rei- 
geben. 


;D SWITCH zAutostart-File 
erzeugen! 


Listing 2. Dieses Assembler-Programm 
dient zum Umschalten zwischen dem 
CES und einem eingesteckten ROM- 
Modul 


beim Laden vom DOS automatisch in 
den dafür vorgesehenen Speicherraum 
geschrieben. 

Es muß also im Prinzip folgenden Auf- 
bau haben, damit es in den Speicher 
des CES geladen werden kann: h 
- Lade einen Wert, beispielsweise O, 
nach $D510 (RAM-Betriebsart des 
GES). 

- Lade die Daten für den Adreßraum 
$A000 bis $BFFF in das CES, 

- Lade einen weiteren Wert nach 
$D500 (ROM-Betriebsart des CES). 

Die Vorgehensweise für das Laden 
von Daten in das CES geschieht folgen- 
dermaßen: 
1.Den Computer und die Pufferung 

des CES ausschalten. 

2. DIP-Schalter für die entsprechende 

Betriebsart einstellen. 

3. Schalter SW 1 auf Stellung »CES«. 

4. Computersystem booten und Puffe- 
rung des CES einschalten. 

5.Das File mit oben beschriebenem 

Aufbau vom DOS aus laden. 

Die über DOS geladenen Daten befin- 
den sich nun im CES. 
16-KByte-Cartridge im Adreßbereich 
zwischen $8000 bis $BFFF. 

Hierbei handelt es sich um zwei 
8-KByte-Cartridges, die einen zusam- 
menhängenden Adreßraum des Com- 
puters überdecken. Eine Kontrolle von 
Basic aus ist auch hier dadurch verhin- 
dert, daß das Basic von der oberen 
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Hälfte des 16-KByte-Bereichs überla- 
gert wird und somit nicht zugänglich ist. 
Es bleibt nur noch der Weg über die 
Maschinensprachebene. 
16-KByte-Switch-Cartridge im Adreß- 
bereich zwischen $A000 bis $BFFF 

Wie aus Bild 1 ersichtlich handelt es 
sich hier um eine etwas komplexere 
Betriebsart. Das CES bietet die volle 
Speicherkapazität von 16 KByte, belegt 
aber nur 8 KByte Adreßraum im Compu- 
ter. Dies macht das sogenannte Bank- 
Switching möglich. Der Bereich von 
$B000 bis $BFFF ist normalerweise 
immer eingeblendet. Ein dort befindli- 
ches Maschinenprogramm kann nun 
durch Zugriff auf bestimmte Speicher- 
stellen zwischen $D500 bis $DSFF 
einen der drei Speicherbänke im 
Bereich $AO00 bis $AFFF aktivieren 
und zu einem dort befindlichen Unter- 
programm verzweigen. Nach Abarbei- 
tung des Unterprogramms erfolgt der 
Rücksprung in das aufrufende Pro- 
gramm im Bereich von $BO00 bis 
$BFFF. Jetzt kann noch eine andere 
Bank eingeblendet werden, um even- 
tuell ein dort vorliegendes Unterpro- 
gramm auszuführen. 

Mit Hilfe dieser Technik passen 
16-KByte-Module in nur 8-KByte- 
Speicher! Die einzelnen Speicher- 
bänke werden durch Zugriff auf fol- 
gende Adressen aktiviert: 


Adresse Bank 

$D5X0 Bank 1 (untere 4 KByte in IC 1) 
$05%3 Bank 2 (untere 4 KByte in IC 2) 
$D5X4 Bank 3 (obere 4 KByte in IC 1) 
x=0 > ROM-Betriebsart 

x=1 > RAM-Betriebsart 


Nach diesem Prinzip arbeiten übri- 
gens auch die Super-Cartridges von 
OSS. Will man Software in dieser 
Betriebsart ins Cartridge laden, so ist 
schon während des Ladevorgangs von 
Disk die Hardware des CES auf die ent- 
sprechenden Speicherstellen im 
Bereich ab $D5XX einzustellen. Ein 
Programmfile sollte also folgenden Auf- 
bau haben: 

1. Lade einen Wert, beispielsweise O, 
nach $D510 (entspricht RAM-Betrieb 
des CES und Bank 1 ist eingeschaltet). 

2. Lade die Daten für Bank 1 nach 
$A000 bis $AFFF und unmittelbar 
danach den Bereich von $B000 bis 
SBFFF. 

3. Lade einen Wert nach $D513 (ent- 
spricht dem RAM-Betrieb des CES. 
Bank 2 ist eingeschaltet). 

4. Lade die Daten für Bank 2 nach 
$AO00 bis $AFFF. 

5. Lade einen Wert nach $D514 (ent- 
spricht RAM-Betrieb des CES. Bank 3 
ist eingeschaltet). 

6. Lade die Daten für Bank 3 nach 
$AO000 bis $AFFF. 


7.Lade einen Wertnach $D500 (ent- 
spricht ROM-Betrieb des CES. Bank 1 
ist eingeschaltet). 

Das Programm befindet sich nun im 
CES und kann aufgerufen werden. 

Soviel an Hinweisen zum Gebrauch 
des CES (für Anwender), die eigene 
Cartridge-Programme schreiben wol- 
len. Es würde den Rahmen sprengen, 
hier noch auf Details einzugehen, wie 
zum Beispiel das Betriebssystem die 
verschiedenen Cartridgearten behan- 
delt, wann ein Cartridge-Selbststart 
erfolgt und wie das Betriebssystem 
registriert, ob ein Cartridgewechsel 
erfolgt ist. Mehr dazu kann man der ent- 
sprechenden Literatur entnehmen 
(zum Beispiel DeReAtari, Atari 600 XU/ 
800XL inter von Data Becker) oder 
durch Experimentieren herausfinden. 

CES erlaubt also, wie schon zu 
Beginn bemerkt, den Inhalt von norma- 
len Cartridges herauszufinden. Im Prin- 
zip geht das folgendermaßen vor sich: 
- Im Cartridge-Slot der CES-Platine 

befindet sich das zu untersuchende 

Cartridge. 

- Das CES wird auf die gleiche Be- 
triebsart wie das Cartridge einge- 
stellt. 

Mittels eines kleinen Maschinenpro- 
gramms wird der Inhalt des Cart- 
ridges ins RAM kopiert. 
Anschließend wird auf CES-Betrieb 
umgeschaltet, und die im RAM vorlie- 
genden Daten werden, ebenfalls mit 
einem kleinen Maschinenprogramm, 
ins CES verlagert. 

Der Inhalt des CES kann nun mit 
einem Monitorprogramm untersucht 
und disassembliert werden. Schaltet 
man das CES auf RAM-Betrieb, so las- 
senssich auch Änderungen vornehmen. 
Ebenso besteht die Möglichkeit, den 
Inhalt des CES auf Diskette zu spei- 
chern und später wieder zu lalen. 

Das in Listing 2 abgedruckte Pro- 
gramm erledigt den Datentransfer zwi- 
schen Cartridge und RAM, zum Bei- 
spiel für ein 8-KByte-Cartridge im Spei- 
cherbereich zwischen $A000 bis 
$BFFF. Eine Änderung dieses Berei- 
ches läßt sich recht einfach realisieren. 
Das Programm kopiert die Daten aus 
dem Speicherbereich zwischen 
SRCBOT und SRCTOP (im Listing bei- 
spielsweise $AO00 bis $BFFF) in den 
Speicherbereich ab DSTBOT (im Listing 
beispielsweise $6000 bis $7FFF). 
Dieses Programm wird assembliert und 
unter dem Namen »READOUT.COM« 
auf Diskette gespeichert. 

Dann wird das Programm noch einmal 
assembliert, jedoch mit den Adressen 
$6000 für SRCBOT, $7FFF für 
SRCTOP und $A000 für DSTBOT und 
mit dem Namen »WRITECES.COM« 
auch noch auf Diskette gespeichert. 
Und so wird’s gemacht: 


1. Computersystem und CES- 
Pufferung ausschalten. 

2. Zu untersuchendes Cartridge in 

den Slot des CES stecken. 

3. Betriebsart des CES entspre- 
chend dem zu untersuchenden 
Cartridge einstellen. 

. Schalter SW 1 in Stellung »CES«. 

. Schalter SW 2 in Stellung »Soft- 
switche«. 

. Computersystem und Pufferung 
des CES einschalten. 

7. Bootprozeß abwarten, bis sich das 

DOS meldet. 

8. Das Programm »READOUT.COM« 

vom DOS aufrufen. 

9. Schalter SW 1 auf Stellung »Cart.« 
schalten. 

. START-Taste drücken und abwar- 
ten, bis sich das DOS wieder mel- 
det. 

11. Programm »WRITECESCOM«vom 

DOS aufrufen. 

12. Schalter SW 1 auf Stellung »CES« 

schalten. 

13. START-Iaste drücken und warten, 

bis sich das DOS wieder meldet. 


o 0» 


Im CES befinden sich nun die glei- 
chen Daten wie in dem zu untersuchen- 
den Cartridge. Jetzt läßt sich der Inhalt 
des CES beispielsweise mit einem 
Monitorprogramm wie Bug/65 untersu- 
chen und disassemblieren. 

Soviel zum Umgang mit dem CES. 
Wie der Name schon sagt, handelt es 
sich um ein Experimentiersystem. 
Beschäftigt man sich intensiv mit dem 
System, so wird man bestimmt noch 
andere, hier nicht aufgeführte Betriebs- 
arten entdecken. 

Zum Schluß noch einiges zum hard- 
waremäßigen Aufbau der CES-Platine. 
Wie bereits erwähnt, erfolgte die Reali- 
sierung der Schaltung mit einer 100 mm 
x 160 mm großen, einseitigen Lochra- 
sterplatine mit Lötpunktraster. Die Ver- 
drahtung ist in Fädeltechnik ausgeführt 
und deshalb schnell durchführbar. Zu 
einem späteren Zeitpunkt könnte man 
sich natürlich auch eine Platine entwer- 
fen. Auch Änderungen lassen sich 
schnell und einfach vornehmen. 
Schließlich handelt es sich um ein 
Experimentiersystem. 

Die nötigen Anschlüsse zum Cart- 
ridge-Slot des Atari-Computers sindauf 
Pfostenfeldstecker (2 x 15 Pole) 
geführt. Die Verbindung zum Cartridge- 
Slot des Atari übernimmt ein 30adriges 
Flachbandkabel. An der Seite zur CES- 
Platine ist eine 34polige Pfostenfeld- 
buchse in Schneidklemmtechnik ange- 
preßt. An der Cartridge-Slot-Seite zum 
Atari ist das Flachbandkabel an eine 
doppelseitige Streifenleiterplatine an- 
gelötet und mit Zwei-Komponenten- 
Klebstoff fixiert. 


PIA - die dritte 
Schnittstelle 


Mit sehr einfachen und preiswerten Mitteln läßt sich sogar eine 
selbstgebastelte Zusatztastatur an Ihren Joystick-Port anschließen. 


4 Die Zusatz- 


tastatur läßt sich PROGRAMM-STECKBRIEF 
problemlos in Programmname PIA-Steuerung 
einem handlichen 
Gehäuse unter- Programmtyp Utihty 
bringen. Programmiersprache Basic und Maschinensprache 
Programmlänge insgesamt 6272 Byte 
für Computer 800 XLU130 XE 
zusätzliche Hardware laut Bauanleitung 
Eingabehilfe Prüfsummer 
Bemerkung In Verbindung mit der Zusatzschaltung 
läßt sich eine Tastatur oder ein Schalt- 
interface steuern 
Leserservice Diskette (PIA1.BAS/PIA2.BAS) 
as ganze Geheimnis der hier jedoch ein Nachteil der Atari XL- 


Joystick-Schnittstelle ist die 

sogenannte PIA. Es handelt sich 
hier um einen Standardperipheriebau- 
stein des Typs 6520. Dieses Bauteil 
verfügt unter anderem über zwei 8 Bit 
breite Ports, die sich sowohl für die Ein- 
als auch für die Ausgabe von Daten nut- 
zen lassen. Wie man diese Ports ver- 
wendet, ist dabei softwaremäßig völlig 
frei programmierbar. Leider macht sich 


und XE-Generation deutlich bemerk- 
bar. Während die alten Modelle noch 
über vier Joystickports verfügten, 
sparte man bei den neueren Modellen 
zwei Ports ein. Durch diese Einschrän- 
kung konnte’ der zweite Port der PIA 
natürlich nichtmehr nach außen geführt 
werden. Besitzt man also ein neueres 
Gerät, so kann man nur noch mit einem 
der beiden PIA-Ports arbeiten und ver- 


(H. D. Jankowski/wb) 
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fügt statt über insgesamt 16 Datenbits 
nur mehr über 8. Selbst ein hardware- 
mäßiger Eingriff, bei dem man den feh- 
lenden Port nach außen führen würde, 
ist nicht durchführbar. Dieser Port über- 
nimmt nämlich nun andere Aufgaben, 
vor allem in der Zusammenarbeit mit der 
MMU (Memory Management Unit oder 
Speicherverwaltungseinheit). 


Dem Atari geht ein 
Licht auf 


Im Normalzustand ist die PIA auf Ein- 
gabe programmiert. Soistes einsichtig, 
daß man bei der Ausienkung des Joy- 
sticks eigentlich nichts anderes tut, als 
einzelne Bits des Ports zu setzen oder 
zu löschen. Aus dieser Tatsache erklä- 
ren sich auch die auf den ersten Blick 
etwas kuriosen Werte, die man mit Hilfe 
des STICK-Befehls erhält. Lenkt man 
den Joystick nicht aus, erhält man bei- 
spielsweise den Wert 15. Dies bedeu- 
tet, daß alle 4 für einen Joystick zustän- 
digen Bits gesetzt sind (1111 binär 
ergibt 15 dezimal). Ist der Joystick nach 


Auf der abgebildeten Testplatine wurden die Schaltungen von Bild 2 und Bild 3 auf 


einer Lochrasterplatine realisiert 


oben gelenkt, so wird das niedrigste Bit 
gelöscht und man erhält den Wert 14 
(1110 binär ergibt 14 dezimal). Welche 
Joystickbewegungen die einzelnen 
Bits beeinflussen, können Sie aus 
Tabelle 1 entnehmen. 

Will man nun die Daten der PIA abru- 
fen, erweist sich die STICK-Funktion 
nicht als besonders sinnvoll. Zum einen 


Taster, Typ Digitast 
IC 7418148 

IC 74LS0O 
Stecker 9Ypol. 
Kabel 6pol. 
Gehäuse 
Lochrasterplatine 


Bauteileliste für eine Zusatztastatur 


TO-TY Anschlüsse für die 12 Tasten 


el 
Te Euer 


P1-P8 Pinnummer am Stecker 
Computer 


zum 


6789 


Pin 5, 6 und 9 werden nicht belegt 
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erfaßt man pro Befehl nur 4 Bit, zum 
anderen lassen sich mit diesem Befehl 
keine Datenan die PlAsenden. Deshalb 
bedient man sich besser direkt der hier- 
für vorgesehenen Speicherstellen. Je- 
dem der beiden PIA-Ports sind zwei 
Speicherstellen zugeordnet. Einmal 
das PIA-Register, das die zu senden- 
den oder zu empfangenden Daten ent- 
hält. Dann das Datenrichtungsregister, 
das festlegt, welche Bits des PIA-Regi- 
sters für die Eingabe beziehungsweise 
Ausgabe verwendet werden (die dafür 
relevanten Adressen finden Sie in 


Tabelle 2). 
Pin-Nr. Richtung  PIA-Bit STICK-Wert 
1 vorwärts 0 14 
Joystick 2 rückwärts 1 13 
Port 1 3 links 2 n 
4 rechts 3 7 
1 vorwärts 4 14 
Joystick 2 rückwärts 5 13 
Pot2 3 links 6 n 
4 rechts ” 7 


Tabelle 1. Für die Modelle 400/800 gel- 
ten dieselben Werte für Joystickan- 
schluß 3 und 4 


Port A 54016 
Port B 54017 
Port ADRR 54018 
Port BDRR 54019 
Joystick 1 632 
Joystick 2 633 
Joystick 3 634 
Joystick 4 635 


Tabelle 2. Der Zusatz »DRR« steht für 
»Datenrichtungsregister«. Die Adressen 
für Joystick 3 und 4 betreffen nur die 
alten Modelle. 


4 Bild 1. Schaltplan für eine 
Zusatztastatur 


1 107417 


1 Stecker 9pol. 


sind die 
gepufferten 
Ausgänge 


4 Widerstände 470 Ohm 


Bauteileliste für vier Kanäle 


Bild 2. Schaltplan zum 
Ansteuern von vier 
Kanälen. 

Die abgedruckte 
Schaltung wird in 
zweifacher Aus- 
führung benötigt, falls 
Sie alle acht Kanäle 


Die Programmierung der PIA geht fol- 
gendermaßen vor sich. Zuerst teilt man 
dem entsprechenden Datenrichtungs- 
register mit, daß die nächste Anwei- 
sung an den Port die Datenflußrichtung 
festlegen soll. Dies geschieht, indem 
man den Wert 48 in das Register 
POKEI. Der Wert für die gewünschte 
Flußrichtung ergibt sich dadurch, daß 
man für jedes Datenbit, das auf Aus- 
gabe programmiert werden soll, eine 


logische Eins und für jede Datenleitung 
zur Eingabe eine logische Null eingibt. 
Will man also beispielsweise alle acht 
Leitungen zur Ausgabe benutzen, 
ergibt dies den Wert 255 (oder binär 


Daten rein oder raus? 


11111111). Für die Eingabe aller acht 
Leitungen ergäbe sich also der Wert 


ist Pin 1-4 auf 


Port A und Port B 


Transistor BC 107 
Widerstand 4,7 kOhm 
Widerstand 560 Ohm 
Leuchtdiode 

Stecker 9pol. 


Bauteileliste für einen Kanal 


REM 


4 Bild 3. Gepuffer- 


<01> . 

Se sm> | einen Kanal Ent- 

12@ REM „DIE.PIA.ABFRI <AR> = 

13® REM __ <00> sprechend werden 

140 REM „von-Wolfgang-Czernys- <cc> | acht Schaltungen 

158 REM un EFT TER <os> | benötigt, um alle 

1680 GRAPHICS ® <55> Kanäle anzuspre- 

200 X=PEEK (632) <AN> chen. 

218 IF X-=B THEN 288 <WU> «Listing 1. 

220 ? "DIE-SETIPPTE-ZAHL-LAUTETAT"X-1 Ein kurzes 

23@ 60T0 229 Beispielsprogramm 
zur Tastaturabfrage 


ansprechen möchten. 


Null (binär 00000000). Man kann also 
ohne weiteres auch beide Flußrichtun- 
gen gleichzeitig festlegen, indem man 
sich den entsprechenden Wert errech- 
net. 

Der nächste Befehl bezieht sich nun 
wieder auf das Datenrichtungsregister. 
Man stellt den Normalzustand durch 
POKENn des Wertes 52 her. Nun ist das 
Port-Registernurnochfür dielogischen 
Zustände der Ein- und Ausgabe verant- 
wortlich. Belegt man diese Speicher- 
stelle also beispielsweise mit dem Wert 
Null, so würden alle Ausgänge den logi- 
schen Wert Null annehmen. Die Hard- 
ware, die man benötigt, um tatsächlich 
externe Vorgänge zu steuern oder zu 
erfassen, kann sich relativ einfach 
gestalten. Die Logikpegel der PIA ent- 
sprechen nämlich dem TTL-Standard. 
Dies bedeutet, daß die auszugebenden 
Informationen ohne Probleme durch 
recht preiswerte integrierte Bausteine 
weiterzuverarbeiten sind. Bei der Ein- 
gabe genügt es sogar im einfachsten 
Fall (wie es beispielsweise bei den Joy- 
sticks praktiziert wird), einen Eingang 
auf +5 Volt zu legen, um ein logisches 
Signal »Eins« zu erhalten. 


Die Zusatztastatur 


Als ein Beispiel, wie mar externe 
Daten aufnehmen kann, wird hier eine 
Zusatztastatur beschrieben. Diese Ta- 
statur besteht aus 12 Tasten, könnte 
aber auf bis zu 15 erweitert werden. 
Neben den Tasten besteht diese Schal- 
tung im wesentlichen aus nur drei ICs. 
Einem 7400, er enthält vier NAND-Gat- 
ter und zwei ICs des Typs 74148. Dies 
sind sogenannte »8 zu 3 Prioritäts- 
encoder« (der Schaltplan für die Zu- 
satztastatur ist Bild 1 zu entnehmen). 
Der Vorteil dieser Schaltung liegt darin, 
daß ein einziger Joystickport ausreicht. 
Es werden nur vier Datenleitungen be- 
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nötigt, um die maximal 16 verschiede- 
nen Zustände zu melden. Die Versor- 
gungsspannung für die ICs wird dem 
Joystick-Port entnommen, so daß man 
ohne zusätzliches Netzteil auskommt. 
Listing 1 zeigt, wie man die Tastatur 
abfragen kann. Istkeine Taste gedrückt, 
erhält man den Wert Null, ansonsten 
einen Wert zwischen 1 und 11. 

Auch die Datenausgabe ist hardware- 
mäßig einfach zu realisieren. Die Schal- 
tung in Bild 2 zeigt, wie man mit nur zwei 
ICs, acht Widerständen und acht 
Leuchtdioden bereits die logischen 
Zustände aller Datenleitungen sichtbar 
machen kann. Da sich die Gesamt- 
schaltung aus zwei identischen Teilen 
zusammensetzt, sieht man in Bild 2 nur 
den Aufbau für vier Kanäle. Die beiden 
ICs des Typs 7417 übernehmen hierbei 
die Aufgabe der Pufferung. Sie sindnot- 
wendig, um die PIA vor Überlastung zu 
schützen. An die Ausgänge der Puffer- 
bausteine kann man nun wie in unserem 
Beispiel, Leuchtdioden, aber auch 
Optokoppler oder TTL-kompatible 
Kleinrelais anschließen. 


Daten sichtbar gemacht 


Bis zu diesem Punktkommt man auch 
mit dem Schaltinterface mit der Strom- 
versorgung der Joystickports aus. Es 
ist somit kein zusätzliches Netzteil 
erforderlich. Begnügt man sich mit der 
Steuerung von Leuchtdioden, so kann 
man auch die Schaltung in Bild 3 ver- 
wenden. Auch hier gilt: Die abge- 
druckte Schaltung in Bild 3 bezieht sich 
wieder auf nur einen Kanal. 

Pro Datenleitung benötigt man zwei 
Widerstände, einen Transistor und eine 
Leuchtdiode. Auch hier wird ein Puffe- 
rungseffekt erreicht, da der Strom der 
Leuchtdiode nicht mehr über die PIA, 
sondern über den Transistor läuft. 

Das etwas umfangreichere Listing 2 
zeigt, wie man diese Schaltungen 
ansteuern kann. Neben einem program- 
mierbaren Lauflicht ist auch eine Zeit- 
schaltuhr realisierbar, die eine der 
Datenleitungen zu einem vorgewählten 
Zeitpunkt ein- oder ausschaltet. Um das 
Lauflicht schnell genug zu machen, ist 
eine Maschinenroutine in das Listing 
aufgenommen worden. Sie verschiebt 
den Registerinhalt des Ports A jeweils 
um 1 Bit nach links oder rechts, abhän- 
gig von der Einsprungstelle. Alles wei- 
tere kann man dem Listing selbst pro- 
blemlos entnehmen. 

(Wolfgang Czerny/wb) 


isting 2. Mit diesem Programm kann > 
die Schaltung von Bild 2 als Schalt- 
uhr eingesetzt werden. Weiterhin ist 
noch eine Lauflicht-Funktion einge- 
baut. 
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210 REM SaannaZUFRRLKÄUF FORT Ann 
220 rem 2PORE254016, 028ETETaALLEsnan 


230 rom 


390 Ren Hauprrenus 
310 GRAPHICS O1PORE 752,1 


515 POKE 709, 255:POKE 710,0 
320 RESTORE 11000 

530 FOR 1=2 TO 16:RCAD Dare 

540 POSITION 8,1:7 Date 

350 maxr ı 

700 OPEN #1,4,0,“Kı"2GET #1,KıCLOSE #ı 
710 ıF wcap'oR Koss TMEN 700 

720 Du K-48 GOSUB 1000, 2000, 9000, 5000, 15 


1010 7 CHRELAZS) :POKE 752, 1:RESTORE 1200. 
° 

1020 ‚POSITION 14,247 "LAUFLICHT“ 

1030 POSITION 14,32? "CTL RILCTL RICCTL 
RIKCTL RICCTL RICCTL RICCTL RICCTL RICC 
nm“ 

1040 FOR 1.5 TO H:READ DaTs 

1050 POSITION 5,1? DAT® 

1060 next ı 

1110 AEAD DATS:POSITION 2,15:? Dars 

A120 POsıTIaN 2,16: "CANIRT =).";CHRs(2 
7) SCHRE(3O) ;"Cürsuralänksu(SHIFT =De"5C 
Ha (27) 5OHRE (31); "„Curaar „rechte. CEHIRT 
= 

1120 FOR 1=17 TO 21:RcaD nare 
1140 POSITION 2,127 DATe 

A1so next ı 

1100 POSITION 33,104? *c= 

1190 POKE 764, 255: F=0:.0P=33 

1195 FOR 1=0 TO TeFLLNI=OENERT I 

1200 TO-PEEK (784) ıSC=PEEK (53279) 

1210 IF TC=& TMEN POSITION CP,10:? "a":C 
PSCP-AsF=F+1:G0TO 1300 

1220 IF TOe7 THEN POSITION CP,10:? “arsc 

P=CP+ätF=F-1:6010 1200 

1230 1F TC=20 OR TO=IS THEN FLIFI=(SSSTE 
3260T0 1400 

1250 1F Sc=s THEN 1500 

1260 IF Sc=5 THEN 500 

1270 IF SC=3 THEN EDIT=1:60T0 1000 
1290 GOrO 1200 

1200 IF FcO TMEN F=7:0puS 

1210 IF #57 THEN F=oscp=ss 

1340 POSITION CP.10:7 "C= 

1350 POKE 764, 255:6070 1200 

1400 IF FL(FI=O THEN POSITION CP,712 
1410 IF FL(FJ=L THEN POSITION CP727 


120 POKE 764,258:0070 1200 
1500 POSITION 2,2327 "LaLINKBROTATION./e 
RSRECHTERDTATLAN 

1310 OPEN 81,4,0,'%;%:GET mi ,KıcLosE wi 
1320 IF #«375 Ab «>02 TMEN 1516 

1330 IF K=74 TEN SNIFT=1S30 

1340 ıF #082 TEN SMIFTE1SSS 

1890 REN BINAER-DEZ UraManDLUNG 

1700 MERTSOLPOR 1=0 TO 7:X=FLCT) SWERTEHE 
RTEZ-TERTNEKT 1sPOKE PL, WERT 

1708 men SraRT LAUFLIENT 

1710 SCPEEK (33279 

1720 IF Scas MEN EDIY=L:60T0 1000 

1730 IF 8C=3 TEN 00TO 500. 

1720 GOnUB 0000: KauBR(SHIFT) 

1760 voro 1710 

1900 Ken nm 
2000 REN BINAERZAHLER 
2010 FOR Ver 10.10:FOR 10 TO 25:POKE P 
1n120DBLD D000:NEXT TENEKT Y 


5010 7 ursaze) 
5620 POSITION 2,717 "WELCHEN.KANDL.SCHAL 
TENACI-W) "sr INPUT Kanal 

3036 IF KAnALCI OR KANALDB THEN 5010 
5035 POSITION 2,937 "WOLLEN-SIEEIN-.ODE 
RAAUSSCHAL TEN« 

5640 POSITION 2,1147 "EINMIAAUS=O.";: INP 
ur eın 

5050 IF EINCO OR EIN) THEN 3040 

3090 IF EIN«O TMEN POKE PL, 28 

5100 IF EIN=1 TMEN POKE Pl 

3110 POSITION 2,15:7 "GEDEN.SIE-DIE.NONE 
NTANE.UHRZEIT.EIN® 

5120 POSITION 2,1417 = (STD,MIN,SECIA";ET 
INPUT STD,HIN, SEC 

5130 IF 51023 OR STD<O OR MIN>59 OR MIN 
<0 OR SEC>SP OR SEC<O TMEN 5120. 

S140 UPA= (GTDeS600+NINMLOrGEE) «50 

5150 UPZ=INT (UP1/236/256) 

5155 UPL=UPL-UP2"230.256. 

5160 UPZ=INT (UPL/236) :UPLRUPI-UPZe25& 
5165 POKE 18,UP2:POKE 19,UPSSPOKE 20,UPL 
5170 POSITION 2,1617 "GEBEN-SIE.DIE.SCHA 
Ürzerr.ein® 

5100 POSITION 2,17:7 "STD, MIN, SEC). 
NPUT STDL,MINI,SECH 

5190 ıF STDI>ZE OR STDICO OR MIN1>59 OR 
MINI<O OR SEC1>S? OR SECICO THEN 5100 


cs 
> 
Br 
<un> 
<00> 
Sun 
2223 
ums 
«os 
suD> 
Saar 
Big 
m 
mes 
Dr» 
Rs 
or 


saw 
<vo> 
Bi 
Sumı> 
Br 
Hr 
<aps 
ans 
<a0> 
<or> 
<ur> 
Bis 


<ı6> 
ans 
ars 
1» 


<> 
ers 


sxı> 
ws 
<cE> 
zn 
<oo> 


ar 
zw 
<o> 
sr 
> 
<ıpz 
<ar> 
> 


En 
<ı0> 


<so> 
zen» 
<oo> 
Bong 
or 
> 
aus 
<ca> 
en 
<PD> 


eus 
re 


En» 
ws 
ne» 
633 
<a8> 
&x0> 


nz» 
Ber 
x» 
ar 
<ar> 
<IR> 
Bug 
zum 
eu 


<avr 
zen> 
x 
<wr> 
“c> 


<on 
Cur> 


“x 
eur» 
<ro> 
3 
Br 
ur> 
«xD» 
ercy 
<ex> 
ercy 
<00> 
> 
a10> 
es 
anx> 


«a0 


3200 7 mscızm 
3210 POSITION 11,4:7 "SCHALTUMR-LAEUFT“ 
5220 POSITION 11,9:7 ———— 
5250 IF EIN-O THEN EINs="aus“ 

5240 IF EIN=1 THEN EINF="EIN” 

5250 POSITION 1,8:7 "KANAL=" KANAL; ".WER 
DaUMANeSTDLE"H"INIIAG"E"HBECHE"A"FEINSE" 
GESCHALTET“ 

5300. UI=PEEK (10) :UZ=PEEK (19) :US=PEEK (20) 
5310 LI=INT« (ULe2360236+ 120256 3) /50) 
5320 UZ=INT (1/3600) «UL -UL-U2R3600 

3330 US=INT (U1/60) HUL=UI-USMGO 

5240 UZ=U2-24# (U2>=28) 

3390 POSITION 10,124? U2p":"HUB) 
5340 POSITION 10,12:7 U2i"ı "zus; 
3300 IF STDICHUZ'OR MINICDUS OR SECKEWL 
TEN 5300. 

5390 IF EIN=t THEN POKE PL,2" KANAL-ı 


10010 RESTORE. 10100. 
10020 FOR Am1536 TO 1579: READ D:POKE A,D 
‚next a 

10030 REM LINKS=1536 / RECHTS=-1535 
10080 RETURN 

19100 DATA.104,24, ER +10,176,3.76, 


39,6,141, 


10120 DATAL109, 45,6, 141,0,211,96,0 
11000 Rem DATAB.MAUPTRENUE 
11010 DaTa 


11020 DATA.HAUPTMENU 
11030 DATA 
11040 Data 
11050 DATA.1.-.LAUFLICHT 
11040 DATA 
11070 DATA.2.-„BINAER-LAUF 
11080 Data 
11090 DATA.S.-„ALLE-LOESCHEN 
11100 Data 
11110 DATA.a.-.ScHaLTum 
11120 Dara 
11150 DATA.S.-.ENDE 
11140 Data 
11150 Data 
12000 REN DATAS.LAUFLICHT-MENUE, 
12010 DATASCCTL QICCTL RICCTL RICCTL RIC 
ETL WCCTL RICENL RICCTL RICCTL WICCTL R 
ILEN. RICETL RICCHL WICCTL RICCHL RISCTL 
RICEN. WICETL RICCTL RICOTL RIECTL w>ce 
TLRICCTL RICCTL RICETL MICCTL RICCTL RI 
GEIL RICH. WICEN. RICCTL RICCHL RICCTL. 
12020 DATALCSHIFT =Jaan{SHIFT =Ja0ntSHIF 
TOI_nCSNIRT mann SHIRT WInnnCEHiRT =) 
AantSHIFT =IauntsHIFT =IaantSHIFT => 
12030 DATA.CEMIFT =). .<SHIFT = 

SSHIFT =D ann CSHIFT =d ann {SHIRT =) 
ET =). CBNIFT =). CäHIeT => 


AantSHIFT = auntSHEFT =JanntSHIFT => 
12030 DATA.CETL ADCOTL RITETL RICCTL MIC 
ETL SIKETL RICCTL RICETL RICCHL SDcCTL m 
ECM. RICCTL RICCTL SIEETL RIKCTL RICCTL 
RICH. SICCTL RICETL RICCTL RICCHL Sp cc 
TU RISCTL RICCTL RICCTL SICCTL RICETL RI 
SETL RICCHL SICETL RICCTL RICCTL RICETL 


ann NIE 
aan thifT => 
FT =) L..CHIFT =danntshirT => 
12070 DATA.ECTL ZucaTı RICETL RICCHL MIC 
ETL XECTL RICCTL RICCTL RICCTL KCCTL R 
ICH. RICCTL RILCTL KIECN. RICCTL RICCHL 
MSEIL KCEN. MSKEN. RICEN. RIKENL XIcE 
TE RSEEHL RICETL RICETL WICCHL MICETL R> 
TEIL RICETL MCENL RICEn. RILENL RICETL. 
12060 DATALCCTL GJECTL RICCTL RICCTL RIC 
ETL RICCTL RICCTL RICCTL RICCTL RICCTL R 
FEN. MICCTL RICCTL RICCTL RICCHL RICCTL 
RIKETL RICCTL WILCTL RILETL RICCTL RICC 
Ti RICCTL RICCTL RICCTL RICCTL RIKCTL RD 
KEIL RICCTL RICH. RICCHL RICEN. RIceTL. 
RICETL MICETL RICCHL © 
12100 DATA.LETL AJCETL RICCTL RICCTL MIC 
ETL MICCTL RICCTL RICCTL MICCTL RICCTL R 
JEETL RICCTL RSECTL RICCTL RICCTL RICCTL 
RICCTL RICCTL SICCTL RILCTL RICCTL RICC 
TU RDSCTL RICCTL RICCTL RICCTL MICCTL RD 
KETL MICCHL RICCTL RICCTL MICCTL RICCTL 
ISCH. RICCTL RICCTL 0 
12110 DATALCSNIFT =) Bpacen.mnn SET LEHT 
FT MD .KBcnUNGET mL COMIET => 
12120 DATALCCTL ASCCTL RICCTL RICCTL MIC 
ETL RICCTL MICCTL MICCHL RICCHL RIcen. R 
JCETL MICCTL RICETL RICCTL RICCTL RICCTL 
RIKETL RICCHL MILCH. MICCHL ASCCTL MICC 
TU RICCHL WCCTL RICCTL RICCTL RICCTL RD 
KEIL MICEHL MICCTL RICCTL RICETL RICCTL 
RIETL RICCTL RICCTL DI 
12150 DATA.CSHIFT =ISTARTMRUNEGNIFT =ISE 
LECT=MenutSHIFT =JOPT IONMEdit=CSHIFT =) 
12140 DATA.CCTL ZIKCN. RICCHL RICCTL ADC 
ETL RICCTL RICCTL MICCTL RICCTL RICCTL R 
ICON. KICCN. MISCTL RIECTL RICETL RICCTL 
RICETL RICETL RICCTL RICCTL RICCTL RIKC 
TE RICETL XICETL RICONL RICCTL RJECTL RD 
KETL RIKCTL RICCTL RICCTL RILETL RICETL 
RIecn. AScan. RIcCTL c> 
15000 END 
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DIE GANZE NACHT GETIPPT... 
ZWANZIG SEITEN LISTING... 


UND MIT EINEM 

KNOPF DRuck 
ALLES WIEDER 
GELÖSCHT !! 


HABEN SIE DAS 
AUCH GESEHEN? 


Mit einer einfachen und preis- 
werten Schaltung wird der Atari 
zur Steuerungseinheit für Elek- 
tromotoren. Damit läßt sich ein 
Robotarm dirigieren. 


'ndustrieroboter übernehmen heute 
F vielen Fabriken die schmutzigen 

und schweren Arbeiten. Ein Atari 
wäre bei diesen komplizierten Produk- 
tionsabläufen natürlich überfordert. 
Doch für die Steuerung von kleinen 
Modellrobotern ist er hervorragend 
geeignet. Einen einfachen Robotarm zu 
bauen, ist gar nicht so schwierig. Die 
Konstruktionsbaukästen von Märklin, 
Trix oder von Fischertechnik, sind eine 
gute Grundlage. Zusätzlich benötigt 
man natürlich noch die entsprechen- 
den Motoren und Getriebe. Einige 
Punkte sind bei der Planung zu 
beachten: 
1. Es sollten nur Gleichspannungsmo- 
toren eingesetzt werden (6-12 V) 
2. Alle Motore brauchen ein Getriebe, 
möglichst mit Schneckenrad-Antrieb 
3. Stabiler, mechanischer Aufbau mit 
großer Grundplatte 
4. Beim Verlegen der Kabel Bewegungs- 
achsen beachten 
5. Geeignete Stromquellen benutzen 
(Netzteile) 
Entwerfen wir ein Konzept: 
Ol Anzahl der Freiheitsgrade: Die 
Anzahl ist abhängig von der Funktion. 
Drei Freiheitsgrade sind in der Regel 
ausreichend, das heißt, drei bewegli- 
che Achsen und drei Motore. Sie sind 
nötig zum Drehen des Grundkreises, 
heben und senken der senkrechten 
Achse, aus- und einfahren der waage- 
rechten Achse. 
U Größe des Verfahrweges: Der Ver- 
fahrweg ist individuell zu gestalten, er 
ist verantwortlich für den Aktionsradius 
des Armes. 
©] Positionierung eines Robotarmes: 
Um den Geldbeutel zu schonen, ver- 
wenden wir keine Schrittmotoren. 
Besitzer eines Atari 400/800 können 


Roboter 
im Griff 


Cl 


1bis4 | DATA 
7 
8 


+5 Volt maximal 40 mA 
Die Anschlußbelegung eines Joystickports 


‚GND (Masse) 


1 bis 4(DATA) 


8(GND) 


7(+5 Volt) 


10 KQ 


Schaltplan für einen 
Kanal. Für den Auf- 
bau der Schaltung 
eignet sich beispiels- 
weise eine Loch- 
rasterplatine (erhält- 
lich in jedem Elek- 
tronik-Zubehör- 
Geschäft). 


Relais 


1x 1N4148 BC547 

1xBC 547 

1 x Reedrelais Typ DA1-5V-D National 
Panasonic AG6319 

1x 100 Ohm 1/4 Watt 

1x 10 KOhm 1/4 Watt 

Stückliste für einen Kanal 


1N4148 


ze 
FONIPUTER 
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sich freuen, weil hier Port 3 und 4 noch 
frei sind. XL-Besitzer dagegen müssen 
‚sich mit der Steuerung über den Timer 
zufriedengeben. 

Der Atari-Computer ist natürlich nicht 
zum Steuern eines Robotarms ausge- 
legt. Wir müssen deshalb eine kleine 
Schaltung aufbauen (siehe Schaltplan). 
Damit sind wir in der Lage, den Arm von 
Basic aus zu steuern. Die Schaltung 


- wird über Port 1 und 2 angeschlossen. 


Die Ports werden mit »POKE 54018,1« 
auf Datenausgabe umgeschaltet. Aber 
Vorsicht, nach Ausführung dieses 
POKE-Befehls darf kein Joystick mehr 
angeschlossen sein. Mit »POKE 
54016,0-255« werden die Datenka- 
näle geschaltet. Jetzt steht uns eine 
Parallel-Schnittstelle mit 8 Bit zur Verfü- 
gung. Liegt ein Datensignal an, schaltet 
der Transistor die computereigene 
5-Volt-Spannung auf das Reedrelais, 
welches dann anzieht. Durch sinnvollen 
Einsatz der POKEs kann man allen 
Motoren gleichzeitig ohne Interrupt- 
Programmierung ansteuern. Beim Atari 
400 oder 800 kann man zusätzlich 
noch Potentiometer an alle Achsen 
anbauen (Wert 2MOhm) und über Port 
3und 4 den Wert erfassen. Damit istes 
möglich den Arm relativ genau zu posi- 
tionieren. 

Alle Atari-XL-Benutzer können nur 
über die Zeit positionieren und haben 
den Nachteil ungenauer Steuerung. 
Wird nämlich der Motor belastet (zum 
Beispiel durch ein Gewicht), läuft er 
langsamer und erreicht die gewünschte 
Position nicht mehr. Hardwarespeziali- 
sten können versuchen über die neue 
Schnittstelle zum Erfolg zu gelangen. 

Das Basic-Programm ist für zwei 
Motoren ausgelegt und arbeitet mit 
einem Joystick in Port 4. Mit dem Joy- 
stick sind alle Bewegungen zu steuern. 
Pfiffige können das Programm so 
umschreiben, das sogar ein »Teach in« 
möglich wird. Das heißt, steuern des 
Armes zur gewünschten Position mit 
dem Joystick, übernehmen des Wertes 
in das Programm und danach automati- 
scher Ablauf des Vorgangs. Als Greifer 
leistet ein umgebautes Relais gute 
Dienste. Damit kann man metallische 
Gegenstände greifen und transportie- 
ren. Ein preiswerter Elektromagnet 
funktioniert natürlich auch. 

Zum Schluß noch einige Tips: Die 
Joystickports sollten pro Kanal nicht 
höher als mit 10 mA belastet werden. 
Die Spule der Relais muß also die Werte 
5 V/500 Ohm haben. Die Positionie- 
rungspotis sollten untersetzt werden, 
damit der gewünschte Punkt nicht 
überfahren wird. Auch alle Getriebe 
sollten über Schnecken und Schnek- 
kenräder untersetzt sein, damit eine 
Bremse überflüssig wird. 

(Jürgen Warschinsky/wb) 
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Relais 1. Polwende- Relais 2. Unterbrecher 
schalter 2 x UM 1 x Ein (Stop) 
(Rechts-Linksiauf) 


Schematischer Aufbau der Schaltung 


4 PRINT CHR$(125) 

S FOKE S4018,1:X=5401&:FOSITION 10,8:? “ 
BEWEGUNG: " 

18 A=STICK(3) 

28 IF A=15 THEN POKE X,245:POSITION 18,1 
4 STOP 

IF A=14 THEN FOKE X,249: POSITION 10,1 


0:7 " ur ä 
48 IF A=13 THEN POKE X,253:FOSITION 18,1 
0? * DOWN = 
5® IF A=11 THEN POKE X,247:POSITION 19,1 
0:? " LEFT in 
68 IF A=7 THEN POKE X,246: POSITION 18,10 
1043 RIGHT = 


78 IF A=9 THEN FOKE X,255: POSITION 10,18 
2? "DOWN %& LEFT " 

80 IF A=5 THEN FOKE X,254:POSITION 10,10 
:? "DOWN %& RIGHT" 

98 IF A=10 THEN FOKE X,251:FOSITION 18,1 
832”. VRNNLEFFY 

188 IF A=& THEN FOKE X,258:FOSITION 18,1 
@0:? " UP & RIGHT " 

118 G0TO 18 


Listing zur Ansteuerung des Selbstbau-Schaltinterfaces 


FORTE 


LLöke/P.Lüke 
Der ATARI 520 ST 
2. überarbeitete und erweiterte 
‚Auflage 1986, 198 Seiten 

„Dieses Buch enthält alle Informationen, 
die für Interessierte und für alle stolzen 
Besitzer eines gerade erworbenen ATA- 
RI 520/260 ST wichtig sind. Die jetzt 
vorliegende überarbeitete und erweiter- 
te Auflage trägt den neuesten Entwick- 
lungen bei Atarı Rechnung. Unter ande- 
tem wurden das inzwischen deutsch- 
sprachige Betriebssystem und einige 
geänderte Systemausstattungsmerk- 
male berücksichtigt. Das Buch ist somit 
nichtnureine Rechnerbeschreibung mit 
hohem Informationswert, esleistetauch 
als Nachschlagewerk wertvolle Dienste. 
Best.-Nr. MT 90229 
ISBN 3-89090-229-4 
DM49,-IsFr. 45.1018 382,20 


2. Quartal 1986, ca. 300 Seiten 


Zwei Themen bilden die Schwerpunkte 
des vorliegenden Buches: 

Die Struktur der 68000-CPU und der 
ATARI 520/260 ST. 

Die ausführliche Beschreibung der Ar- 
hitektur der 68000-Famile (68000, 
‚68008, 68010, 68020) und ihrem Be- 
fehlssatzwirdergänztgurcheinenNach- 
Schlageteil mit zwei- bis dreizeiigen Bei- 
spieigequenzen. Auf dieser !heoreti- 
schen Basis wirddie Programmierumge- 
bung des ATARI 520/260ST anhand 


Schaltung und ser Schnittstellen (MIDI, 
24, Tastatur, Maus). Bosondere Auf- 


triebssystem und in höhere Program- 


DM S2,-15Fr..47,80108 405,60. 


W.Fastenrath 
ATARI ST BASIC-Handbuch 
1. Quartal 1986, ca. 250 Seiten 
‚Suchen Sie eine Anleitung zur intensiven Ausnutzung der Fähigkeiten des ATARI 520/260 ST? Dannist 
dieses Buch genau das richtige für Sie! Sie erfahren alles über das BASIC-System des ATARI ST. Jeder 
Befehl wird mit Programmbeispielen ausführlich erläutert. Den Schwerpunkt bildet eine Anleitung zur 


BASIC-Programmierung des ATARI ST sowie zur Programmierung von GEM-Funktionen. 
Bost-Nr. MT 90205, ISBN 3-89090-205-7, DM S2,-isFr.47,B0188 405,50 

R.Aumiler 

ATARISTLOGO 


1. Quartal 1986, 3.250 Seiten 

Dieses Buch bietet eine gründliche Einführung in die Programmmiersprache LOGO und ihre Anwendung. 

aufdem ATRIS20/260 ST. Schon nach kurzer Zeitistder Änfängerin der Lage, eigene LOGO-Programme 

Zuschreiben. Praktische Anwendungsmöglichkeiten wie z.B. die Datenverwaltung sind auch für den fort- 

geschrittenenProgrammierervon Interesse Eineigenes KapitelistdemBereichderkünsticheninteligenz 
t 


gewidmet 
Bost-Nr. MT 90223, ISEN 3-89090-223-5, DM 49,-12Fr.45,10188 405,50 


P-Rosenbeck 
C-Programmierung unter TOSIATARIST 

1. Quartal 1986, ca. 300 Seiten 

Die Programmiersprache Chat sich bei professioneken Programmierer zu einem Renner entwickelt Sie. 
emögientes sehr naheander Maschnezuarbeitenunddochstnuknuiertzuprogrammieren. DiesesBuch 
Biteteine EinfünrungindeProgrammierungC spezeitürgen ATARIST. Am Beispielemes Diskettenmont- 


Best-Nr. MT 90226, ISBN 3-89090-226-X, DM 52,-i5Fr. 47,8010S 405,60. 
In Vorbereitung: 


C-Programmierung unter GEM/ATARI ST 
2. Quartal 1986,ca.300 Seiten 
Best.-Nr. MT 90203, ISBN 3-89090-203-0, DM 58,-/sFr.53,40185 452,40 


A.Steiner/G. Steiner 
GEM für den ATARI 520 ST 

2. überarbeitere und erweiterte. 
‚Auflage 1986, 334 Seiten 

Die Benutzeroberfläche des neuen 
ATARI ST - GEM genannt - erhebt den 
‚Anspruch, die Bedienung des Compu- 
ters zum Kinderspiel zu machen. Den- 
noch: Wenn Sie die bisher übliche kom- 
mandoorientierte Umgangsweise mitih- 
rem Computer pflegten, so werden Sie 
eine Einführung in die Bedienung von 
Maus, Bildsymbolen und Fenster, wiesie 
dieses Buchligfert, zuschätzen wissen. 
Besonders interessant für den erfahre- 
nen Anwender sind die Kapitel über den 
internen Aufbau von GEM mit seinen 
Pull-Down-Menüs, Fenstern und Sym- 
bolen. 

Best-Nr. MT 90230 

ISBN 3-89090-230-8 

DM 52,-IsFr. 47,80/88 405,60. 


.Purdum/T. Losiie 


Die C-Programmbibiothek 
1.Quartal 1986,ca.320eiten 
Dieses Buch erspart dem C-Program- 
imierer Stunden mühseliger Kleinarbeit 
und nit, effizientere Programme zu 
Schreipen. EeistinzweiTele gegladert. 
Dererste Teizeigt, viemanzuuniversel: 
ien Biblothekstunktionen kommt und 
‚gibt Tips, wie C noch wirkungsvoller ein- 
gesetztwerdenkann. Derzweite Tellent- 
hält eine Reine austührich erklärte C- 
Funktionen als wertvole Ergänzung In- 
rer Programmbiblotnek. Dazu gehören 
Unter enderem ein Terminalnstallions- 
programm mehrere Sorter-Algorthmen 
Undein Satz ISAM-Funktionen. 
Best-Nr. MT 90133 

ISBN 2890901336 

DM 69;-1sFr.63,50185 538,20 


Die ©- 
G-Programm- 
inliohek 


W.HitA.Nausch 


M68000-Famihe: Teil 1 
1984, 568 Seiten 


informative Einführung in die Geschich- 
te und die Entwicklungsphilosophie ei 
ner detailierten Darstellung der Hard- 
ware sowieausführfiche Erläuterung der 
komfortablen Adressierungsarten. 
Bost-Nr.PW7OS 

ISBN 3921803160 

DM 79,-15Fr.72,80/6 616,20 


M68000-Familie: Teil 2 

1985, 400 Seiten 

Teill!des umfassenden Lehr- und Nach- 
SchlagewerkszumM68000beschaftigt 
Sichmit Anwendungen und weiteren Mit- 
gliedern der M68000-Familie. 
Best_Nr.PW713 

ISBN 3-921803-20-5 

DM69,-isFr. 63,50105 538,20 


Tau 
EENACON UND ARCHITEKTUR. 


Markt& Technik-Fachbücher 
erhalten Sie bei Ihrem Buchhändler 


Bestellkarten bitte an Ihren Buchhändler 
oder an einen unserer Depot-Händler. 
Adressenverzeichnis am Ende des Heftes. 


Bestellungen im Ausland bitte an untenstehende Adressen. 
Schweiz: Markt&Technik Vertriebs AG, 
Kollerstrasse 3, CH-8300 Zug, © 0421415656 
‚Österreich: Rudolf Lechner & Sohn, 

Heizwerkstraße 10, A-1232 Wien, © 0222/6775268 


Irrtümer und Änderungen vorbehalten. 


Markt&fTechnik 
BUCHVERLAG 


Hans-Pinsel-Straße 2, 8013 Haar bei München 


TURBO-BASIC 


TurboBasic XL ist extrem 
schnell, komfortabel und erlaubt 
Programmstrukturen wie Pascal. 
Der Turbo-Basic-Compiler, der 
sich nun zur Turbo-Serie hinzu- 
gesellt hat, steigert das Pro- 
grammiervergnügen und die 
Geschwindigkeit noch einmal. 


urbo-Basic XL werden manche 
Leser bereits kennen (der Inter- 
preter wurde in Happy-Computer, 
Ausgabe 12/85 abgedruckt). Eventuell 
haben Sie auch schon erste Erfahrun- 
gen mit diesem leistungsfähigen Inter- 
preter gesammelt. Dann werden Sie 
bestimmt nicht mehr allzuhäufig mit 
dem normalen Atari-Basic arbeiten und 
lieber auf das Turbo-Basic XL zurück- 
greifen. Aus diesem Grund veröffentli- 
chen wir den Interpreter noch einmal in 
diesem Sonderheft. Wir sind nämlich 
der Meinung, daß sich Turbo-Basic XL 
unter möglichst vielen Atari-Fans ver- 
breiten sollte. 

Wenn Sie den Interpreter allerdings 
noch nicht kennen, schenken Sie den 
nächsten Seiten Ihre Aufmerksamkeit. 
Dort finden Sie eine ausführliche Erklä- 
rung zu allen Turbo-Basic-XL-spe: 
schen Befehlen. Hinzu kommen eii 
neue Fehlermeldungen und die Mög- 
lichkeit, verschiedene Disketten-Be- 
fehle direkt von Basic auszuführen. Las- 


Der große Turbo-Basic 


sen Sie sich aber nicht von dem um- 
fangreichen Listing abschrecken. Denn 
haben Sie das Programm erst einmal 
abgetipp, werden Sie es nicht 
bereuen. Dessen sind wir ganz sicher. 

Gleich im Anschluß an den Turbo- 
Basic-XL-Interpreter finden Sie einen 
weiteren Leckerbissen: Den Turbo- 
Basic-Compiler, ebenfalls zum Abtip- 
pen. Einen superschnellen Compiler, 
der selbst in Atari-Basic geschriebene 
Programme verarbeitet. Das Compilat 
zählt mit zu den schnellsten. Überzeu- 
gen Sie sich selbst von den Ergebnis- 
sen. Auf der Seite 32 sind die erzielten 
Rechenzeiten aufgelistet. Unser Com- 
piler hat selbst kommerzielle Compiler 
um Längen geschlagen. 

Damit sich die beiden »Wunderkin- 
der« auch gleich bewähren können, 
sind einige Turbo-Basic-XL-Programme 
hier abgedruckt. Beachten Sie aber 
bitte: Diese Beispielprogramme laufen 
nicht unter Atari-Basic! Es kommen 
nämlich spezielle Turbo-Basic XL- 
Befehle zur Anwendung, die Atari- 
Basic nicht verarbeiten kann. So ist bei- 
spielsweise im Programm »Grafikspiele- 
reien« der »MOVE«-Befehl eingebaut, 
der ein sehr schnelles Verlagern des 
Bilschirmspeichers bewirkt. So wird ein 
Grafikbild mal auf den Kopf gestelltoder 
über die Mittelachse hinweg gespie- 
gelt. Aber lassen Sie sich überraschen! 
Das Programm bietet viele wirkungs- 
volle Effekte, die sich ansonsten in 


SEE B 2 

I 
-Teil 
Atari-Basic nur durch spezielle 
Maschinensprach-Routinen realisieren 
lassen. 

Oder werfen Sie einen Blick auf das 
Programm »Apfelmännchen«. Dieses 
Programm erzeugt die tollsten Grafiken. 
Ein farbiges Beispiel finden Sie im 
Inhaltsverzeichnis am Anfang des Hef- 
tes. Hier kommt ein weiterer Vorzug von 
Turbo-Basic XL voll zur Geltung, näm- 
lich der, strukturiert zu programmieren. 
Es wurde vor allem der Befehl »EXEC 
Prozedur« eingesetzt. So lassen sich 
selbst Prozeduren unter Turbo-Basic 
XL definieren. Beim genaueren 
Studium des »Apfelmännchen«-Pro- 
gramms wird Ihnen sicherlich auffallen, 
daß in dem Programm kein einziger 
GOTO- oder GOSUB-Befehl auftaucht. 
Dies ist eine der wichtigsten Vorausset- 
zungen der strukturierten Programmie- 
rung. 

Es spricht also einiges zugunsten 
unseres Interpreters und Compilers. 
Um noch mehr Atari-Besitzer in den 
Genuß des Turbo-Basic XL-Interpreters 
zu bringen, ist eine Umsetzung der bei- 
den Programme auch für den Atari 260 
ST/520 ST+ in Vorbereitung. Natürlich 
ist in dieser Version auch die Befehls- 
Kompatibilität zwischen dem 800XL 
und den ST-Computern gewährleistet. 
Allerdings benötigen die Programme 
noch einige Zeit bis zur Vollendung. Wir 
halten Sie aber auf dem laufenden. 
(wb) 
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TURBO-BASIC 


So funktioniert der 
Turbo-Basic-Compiler 


Soll ein Basic-Programm schnel- 
ler werden, dann greift man ein- 
fach zum Basic-Compiler. Aber 
wie funktioniert ein solches 
Beschleunigungswunder? 


anche Anwendungen erfor- 

dern mehr Tempo, als reine 

Basic-Programme zu bieten 
haben. Dann schreibt man zeitkritische 
Routinen entweder in Maschinenspra- 
che oder setzt einen Compiler ein, der 
ein Basic-Programm in Maschinenspra- 
che umwandelt. Letzteres ist natürlich 
viel einfacher und bequemer, da es 
lediglich den Umgang mit dem Compiler 
vorraussetzt. Außerdem benötigt die 
Compilierung nicht viel Zeit. Das Com- 
pilat kann übrigens nicht mehr von 
Basic aus bearbeitet werden. Wenden 
wir uns nun der Funktionsweise des 
Turbo-Basic-Compilers zu. 

Wenn Sie ein Basic-Programm eintip- 
pen, zum Beispiel die Programmzeile 
»100 ?3*4«, faßt der Computer diese 
Zeile zunächst nur als eine Folge von 
Zeichen im ATASCII-Format auf. Unter 
dem Begriff ATASCII versteht man die 
spezielle Atari-Version des ASCII- 
Zeichensatzes (ASCllist die Abkürzung 
für: American Standard Code for Infor- 
mation Interchange). Der Interpreter 
wandelt den eingegebenen Text in 
Token um. Gleichzeitig überprüft er 
noch die Syntax, also ob die Befehls- 
folge auch zulässig ist. Diese Aufgabe 
muß meistens auch ein Compiler über- 
nehmen. Bild 1 zeigt, wie die Pro- 
grammzeile »100 ?3* 4« in Token über- 
setzt aussieht. 

Die Programmzeile wird dann anhand 
ihrer Nummer einsortiert. Durch diese 
Umwandlung in Token und gleichzeiti- 


ger Syntaxprüfung wird die Aufgabe 
des Compilers etwas einfacher. Spei- 
chert man ein Basic-Programm mit dem 
SAVE-Befehl, werden auch die Token 
gespeichert. Mit LIST hingegen liegt es 
in der Textform vor. Der Turbo-Basic- 
Compiler kann nur die »SAVE-Ausfüh- 
rung« übersetzen. Ein Transfer der Text- 
Form wäre prinzipiell auch möglich, 
allerdings würde der Compiler hierfür 
mehr Zeit benötigen. Schließlichmuß er 
die Befehlsnamen kennen und die 
Variablennamen speichern. Dies würde 
weiterhin die maximale Länge der zu 
compilierenden Programme vermin- 
dern. Oder es müßten Zwischenfiles 
auf Diskette angelegt werden, was bei 
den relativ langsamen Atari-Disketten- 
laufwerken sehr zeitaufwendig ist. 


Keine Variable 
ohne Nummer 


Bevor Sie ein Basic- oder Turbo-Basic 
XL-Programm compilieren, sollten Sie 
sicherstellen, daß es fehlerfrei läuft. 
Zwar ist dann immer noch nicht gewähr- 
leistet, daß das Programm anschlie- 
Bend auf Anhieb ordnungsgemäß com- 
piliert und ausgeführt werden kann. 
Zumindest entfallen aber Syntax- 
Fehler, die zur Folge hätten, daß Sie Ihr 
Basic-Programm korrigieren müßten, 
um es anschließend nochmals zu com- 
pilieren. Auch muß die Struktur Ihrer 
Basic-Programme stimmen. Dazu bie- 
tet sich der LIST-Befehl unter Turbo- 
Basic XL an, der bekanntlich FOR- 
NEXT-Schleifen und IF-ELSE-ENDIF- 
‚Abfragen einrückt. 

Atari-Basic und Turbo-Basic XL- 
SAVE-Files bestehen aus einem Vor- 


Nach der Umwandlung in Token sieht die Programmzeile »100 ? 3*4« folgendermaßen 


aus: 


OA 00 15 15 28 OE 40 03 00 00 00 00 24 OE 40 04 00 00 00 00 16 


Dabei bedeuten: 


0A00 = Zeilennummer (100) 

15 eilenlänge 

15 = Abstand vom Zeilenanfang zum Ende der ersten 
Programmzeile 

28 = Token für »?« 

OE 40 03 00 00.00.00 = Zahl 3 

24 = Token für »*« 

0E 40 04 00 00 00.00 = Zahl 4 

16 = Token für Zeilenende 


Bild 1. Eine Basic-Programmzeile, umgesetzt in Token 


spann mit den Variablennamen und eini- 
gen anderen Informationen für den 
Interpreter. Diese werden deshalb vor 
dem Einlesen entweder überlesen (wie 
die Variablennamen) oder, in einer 
angepaßten Form, gespeichert. Dies 
betrifft in erster Linie die Variablenty- 
pen. Der Variablentyp kann aber nicht 
nur aus der Variablennummer, die im 
Programm gespeichert ist, definiert 
werden. Das Dollarzeichen ($) bei- 
spielsweise, welches die Stringvaria- 
blen kennzeichnet, wird vom Interpre- 
ter nicht im eigentlichen Programm 
gespeichert. 

Bei langen Programmen mit vielen 
Variablen kann man diese Phase der 
Compilation deutlich erkennen. In der 
Info-Zeile (der dritten Bildzeile des 
Turbo-Basic-Compilers) steht dann nur 
das Wort Zeile ohne Zeilennummer. 
Sobald die erste Zeile übersetzt wird, 
erscheint auch die Anzeige der ent- 
sprechenden Zeilennummer. 

Jetzt beginnt die eigentliche Compi- 
lierung. Sie setzt sich aus zwei Durch- 
gängen zusammen. Im ersten Durch- 
gang (Paß 1) wird das Programm Zeile 
für Zeile und Befehl für Befehl eingele- 
sen und in Maschinencode übersetzt. 
Im zweiten Durchgang (Paß 2) werden 
dann noch die offenen Sprungadressen 
eingesetzt. Dazu werden im Paß 1 
GOTO-Sprünge im Code durch einen 
ungültigen Maschinenbefehl mit ange- 
hängter Zeilennummer gekennzeich- 
net. Im zweiten Durchgang schließlich 
ersetzen dann 6502-JMP-Befehle 
(Code $4C) die ungültigen Maschinen- 
befehle. 

Ähnliches gilt für Zahlen und Textkon- 
stanten. Sie werden in einem Block hin- 
ter dem eigentlichen Basic-Programm 
gespeichert. Die endgültigen Adressen 
stehen dann erstnach der Übersetzung 
fest. Im Anschluß an den zweiten 
Compilier-Durchgang folgt dann noch 
eine Kontrolle, ob offene Schleifen vor- 
liegen. Also ob ein NEXT zu einem FOR 
fehlt oder ein WEND zu einem WHILE 
etc. Trifft dies zu, erscheint eine Mel- 
dung auf dem Bildschirm. Dann folgt 
noch die Überprüfung nach fehlenden 
ENDIFs. Durch diese Aufteilung der 
Fehlerprüfung (die meisten Fehler wer- 
den bereits im ersten Durchgang fest- 
gestellt) werden die fehlerhaften Zei- 
lennummern nicht komplett sortiert 
ausgegeben, sondern gegebenenfalls 
in vier einzelnen Gruppen. 
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Die meiste Arbeit wird im ersten 
Durchgang geleistet, der Rest dauert 
nur wenige Sekunden. Das Einlesen 
des Programms erfolgt Zeile für Zeile. 
Zuerst zur Zeilennummer: Wenn die 
Zeilennummer größer als 32767 ist, 
dann ist Paß 1 beendet (der Interpreter 
verwendet die Zeilennummer 32768 
übrigens als Endekennzeichen). Dann 
schließt der zweite Durchgang an. 
Ansonsten wird die Zeilennummer 
angezeigt und die Zeile Befehl für 
Befehl eingelesen und übersetzt. 

Sollte der Compiler auf einen LIST- 
oder ENTER-Befehl stoßen, wird ein- 
fach eine Fehlermeldung mit Zeilen- 
nummer ausgegeben, und der nächste 
Befehl kommt an die Reihe. 

Keinerlei Probleme bereiten REM- 
oder »--«-Zeilen. Diese Befehle werden 
einfach überlesen und ignoriert, da sie 
den Programmablauf nicht beeinflus- 
sen. 

Befehle ohne Parameter (wie END, 
POP oder CLR) werden einfach zu 
einem entsprechenden Unterpro- 
grammaufruf compiliert. 

Bei einem DATA-Befehl wird der Text 
mit Zeilennummer und Länge in einer 
Tabelle im Anschluß an das Programm 
eingetragen. Sie nimmt noch folgende 
Informationen auf: 

- eine weitere Tabelle mit konstanten 

Zahlen 
— konstanten Strings 
- die Anfangsadressen aller Pro- 

grammzeilen 
- den während der Compilation benö- 

tigten Stapelspeicher (der 
6502-Stapel ist viel zu klein) 

Diese Informationen werden gegebe- 
nenfalls auch im Speicher verschoben, 
wenn das zu compilierende Programm 
oder eine der Tabellen anwächst. Des- 
halb nimmt auch die Compilierungsge- 
schwindigkeit bei langen Programmen 
gegen Ende ab; vor allem wenn viele 
DATAs am Anfang des Programms ste- 
hen. Diese Verlangsamung betrifft 
lediglich die eigentliche Compilierung 
und nicht den Programmablauf. 

Alle Befehle, die Parameter erfordern, 
sind wesentlich schwieriger zu über- 
setzen. Bild 2 zeigt nur einen Befehl mit 
einem einzigen Parameter. 

Die Umwandlung des Befehls von 
Schritt 1 nach Schritt 2 hat der Interpre- 


ter schon erledigt. Der Compiler liest 
das Befehlstoken $03 für COLOR und 
verzweigt in die entsprechende Compi- 
lationsroutine. Diese ruft wiederum die 
Routine für die Übersetzung eines Aus- 
drucks auf, die eine Integerzahl zurück- 
liefern soll. Dann wird nur noch »STA 
$C8« angehängt, und damit ist die 
Compilierung des Befehls schon erle- 
digt. Beim Befehl GRAPHICS würde 
»JSR @Graphics« angehängt werden. 
‘Der Klammeraffe (@) kennzeichnet 
übrigens eine Routine in der Runtime 
Bibliothek. 

Ein großer Fortschritt wurde bis jetzt 
noch nicht verzeichnet. Zwar sind die 
Befehle jetzt prinzipiell compiliert, das 
ändert aber leider nichts daran, daß mit 
dem entsprechenden Parameter, wie in 
unserem Beispiel die 1, noch nichts 
passiert ist. 


Compilieren 
Zeile für Zeile 


Die dafür benötigte Routine gliedert 
sich in mehrere Abschnitte: 
- P-Code-Erzeugung 
- P-Code-Optimierung 
- Maschinencode-Erzeugung 

P-Code (Pseudo-Code) ähnelt der 
Maschinensprache eines hypotheti- 
schen (gedachten) Prozessors. Man- 
che Compiler erzeugen nur einen P- 
Code, der dann von einem kleinen Inter- 
preter ausgeführt wird. Die Abarbei- 
tungsgeschwindigkeit eines solchen 
Codes ist zwar schneller als ein her- 
kömmliches Basic-Programm, aller- 
dings von der Geschwindigkeit einer 
»richtigene Maschinensprache noch 
weit entfernt. Aber platzsparender ist 
P-Code im Vergleich zu voll compilier- 
tem Basic. Echte Maschinensprache ist 
jedoch von keinem Compiler zu über- 
treffen. 

Bild 3 zeigt ein komplizierteres Bei- 
spiel. »03« entspricht wieder dem 
Token für COLOR, »46« steht für PEEK, 
»3A« für die offene Klammer, »2C« für 
die schließende Klammer, »35« steht 
für die Addition (+), »16« bedeutet Zei- 
lenende oder auch einen Doppelpunkt, 
der Basic-Befehle in einer Zeile trennt. 
Der Wert »OE« kennzeichnet schließlich 


1) COLOR 1 
2) 03 0E 40 01 00.00. 00.00 
3) A9 01 85 C8 


;so sieht's aus 
;so speichert's der Interpreter 
‚das soll daraus werden (LDA #1:STA $C8) 


:$C8=200 ist die Speicherzelle, in der sowohl 
‚Interpreter als auch Compiler die Zeichenfarbe 
für Plot ablegen 


Bild 2. So wird der Befehl »COLOR« compiliert 


03 46 3A OE 41 02 00 00 00 00 2C 35 40 01 00 00 00 00 16 


Bild 3. So sieht der Basic-Befehl »COLOR PEEK(200)+1« in Token umgesetzt aus 


noch eine Zahl in der internen Darstel- 
lung (entspricht sechs Byte). 

Das Token »03« ist in unserem Bei- 
spiel bereits identifiziert. Es beginnt 
jetzt der Test, in welcher Reihenfolge 
die Operationen ablaufen müssen. Der 
Interpreter hat dabei fast die gleichen 
Tests durchzuführen, und zwar jedes- 
mal, wenn er diese Zeile erreicht. Der 
Compiler übersetzt jede Zeile nur ein- 
mal bei der Compilierung. Dadurch lau- 
fen die Programme schneller ab. 

Bei der Übersetzung in P-Code 
bedient sich der Compiler einer Tabelle, 
in der die Prioritäten aller Operatoren 
vermerktsind. Übrigens handelt essich 
hierbei fast um die gleiche Tabelle, die 
auch der Interpreter benutzt. Daraus 
ergibt sich dann folgender P-Code. In 
Bild 4 sind die einzelnen Werte lediglich 
in Kurzform dargestellt. Der Compiler 
betrachtet sie natürlich als Zahlen. 

Jetzt könnte theoretisch schon die 
Routine aufgerufen werden, die den 
Maschinencode erzeugt. Allerdings 
würden dann im compilierten Programm 
die gleichen Berechnungen ablaufen, 
die der Interpreter normalerweise auch 
durchführt. Schließlich steht jetzt viel 
Zeit zur Optimierung des P-Codes zur 
Verfügung, da die Programmzeilen nur 
ein einziges Mal in Maschinencode 
umgesetzt werden. 


Hier nochmals der P-Code: 
Zahl 41 02 00 00 00 00 
fp->intpeek int->fp push 
Zahl 40 01 00 00 00 00 
movepull add fp->int 


Im ersten Schritt faßt der Optimierer 
die Zahl »41 02 00 00 00 00 fp->int« 
zusammen, indem er den Wert in die 
Integer-Darstellung umwandelt. Daraus 
entsteht: 


Izahl 200 peek int->fp push 
Zahl 40 01 00 00 00 00 
movepull add fp->int 


‚Anmerkung: Es gibt zwei Fp-Accus, 
$D4 bis $D9 und $EO bis $ES. Integer- 
zahlen stehen dabei im Prozessorregi- 
ster Aund Y. Dabei enthält Y das höher- 
wertige und A das niederwertige Byte. 

Der Optimierer faßt jetzt »Izahl 200 
peek« zu »Ipeek 200« zusammen. 
Das erste Beispiel würde »LDA 
#<200:LDY # >200:JSR PEEK« als 
Code erzeugen und das zweite Beispiel 
»LDA 200:LDY #0«. Jetzt haben wir 
also: 


Ipeek 200 int->fp push 
Zahl 40 0100 00 00 00 
movepull add fp->int 


Jetzt wird »push Zahl ... movepull 
add« zu »add# ...« zusammengefaßt. 
Daraus ergibt sich: 
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Ipeek 200 int->fp add 
# 40 01 00 00 00 00 £p->int 


Als nächstes bemerkt der Optimierer 
die Folge »int->fp Add# ... fp->int« 
und versucht diese Befehlsfolge zu ver- 
einfachen. So spart man sich später 
eine Umwandlung. Da die Zahl kleiner 
als 256 ist, gelingt dies auch. 


Ipeek 200 Iadd# 1 


Jetzt hat der Optimierer seine Arbeit 
geleistet. Anschließend wird richtiger 
Maschinencode erzeugt. 

Aus »Ipeek 200« entsteht »LDA 
200:LDY #0«, 

»ladd# 1« wird zu »LDX #1:JSR IADD« 
(dieser Unterprogrammaufruf ist nötig, 
da sonst auch ein Overflow stattfinden 
könnte; Integerwert größer als 65535!) 


Das war auch schon alles. An den 
Befehl COLOR wird noch »STA $C8« 
angehängt. Insgesamt ergibt sich also: 


IDA 200:1DY # 0:LDX # 1:ISR 
IADD:STA $C8 


Ohne Optimierung würde wesentlich 
mehr Programmcode erzeugt werden, 
der noch dazu viel langsamer ist: 


IDA #< 2200:1DY #>Z200:J5R 


IDOYA:JSR FPI?:JSR PEEK:JSR 
IFP:JSR PUSH 

IDA # <Z1:1DY # > Z1:JSR 
MOVEPULL:JSR ADD: ISR FPI?:STA $C8 


Außerdem noch im Konstantenbe- 
reich: 


2200 .BYTE $41,$02,$00,$00,$00, 
$00 
21 -BYTE $40,$01,$00,$00,$00, 
$00 


Durch Optimierung läßt sich also viel 
Programmcode sparen. Gegenüber 
einem echten Maschinencode sieht 
das Ergebnis allerdings immer noch 
recht umfangreich aus. In Maschinen- 
sprache würde nämlich »INC $C8«, was 
nur 2 Byte benötigt, das gleiche bewir- 
ken. Hexadezimal $C8 entspricht dabei 
dem Dezimalwert 200. In unserem Bei- 
spiel codiert der Compiler den Basic- 
befehl COLOR 1 jedoch optimal, näm- 
lich »LDA #1:STA $C8«. 


Optimal compiliert 


Allerdings kann der Compiler nur in 
den seltensten Fällen optimalen Code 
erzeugen. Schließlich erübrigt sich nur 
die Umwandlung von FP nach INT und 
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umgekehrt und dies auch nur bei Ver- 
wendung von Konstanten. Bei Varia- 
blen ist diese Art der Optimierung nicht 
zulässig. In den meisten Fällen reicht 
schon die Einsparung einiger Bytes, 
weil zum Beispiel das Laden einer Varia- 
blen und die Umwandlung in einen statt 
zwei Integerwerte durch einen einzigen 
Unterprogrammaufruf erledigt wird. 

Auch wird nicht alles, was möglich 
wäre, optimiert. Zum Beispielberechnet 
sich »A=10/3« nicht im voraus, obwohl 
es durchaus sinnvoll wäre. Aber solche 
Optimierungen kann der Programmie- 
rer gegebenenfalls selbst vorwegneh- 
men. Allerdings sind solche Fälle viel zu 
selten, als daß sich dies hier lohnen 
würde. Je länger nämlich der Compiler, 
desto kürzer die entsprechenden 
Basic-Programme. Es gibt jedoch 
einige Berechnungen, deren Optimie- 
rung sich besonders lohnt: »"2« erhält: 
eine eigene, schnelle Routine. Im Com- 
piler benötigt »A=B”2« die gleiche Zeit 
wie »A=B*B«. Es existiert ebenfalls 
eine schnelle Exponential-Routine, die 
bereits im Mathematik-Teil der Runtime- 
Bibliothek vorhanden ist. So oder ähn- 
lich werden alle Befehle mit Parametern 
behandelt. Sind mehrere Parameter 
vorhanden, werden diese natürlich zwi- 
schengespeichert. 

Ein weiterer lohnenswerter Befehl ist 
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Zahl 41 02 00 00 00 00 
fp->int peek int->fp 


‚die 200 


r PEEK-Befehl benötigt einen Integer als Adresse, 
shalb muß die 200 zuerst umgewandelt werden. 

ın folgt der eigentliche PEEK-Befehl und dann 

ie Umwandlung des Ergebnisses in eine 
ting-Point-Zahl (fp). Diese 


‚Umwandlungen muß der Interpreter auch immer 


‚durchführen. 
push ‚retten des Ergebnisses auf den Rechenstapel 
Zahl 40 01 00.00 00.00 ‚Zahl 1 
Movepull ;Schiebt die Zahl 1 aus dem FP-Accu 1 in den 
'P-Accu 2 und holt das Ergebnis des PEEKs 
den FP-Accu 1 
Add ie Addition 
fp->int lies wird von der Compilationsroutine für Color 
‚angehängt, es wird ja ein Integer benötigt 


Bild 4. Der P-Code, der sich aus »COLOR PEEK(200)+1« ergibt 


der POKE-Befehl. Beispielsweise wird 
»POKE 16,64« durch »LDA #64:STA 
16« übersetzt. 

Beim PRINT-Befehl sind noch die 
Kommata zu beachten. Auch INPUT, 
READ, GET und LOCATE beinhalten 
noch einige Probleme. Eine ausführli- 
che Erläuterung würde den Rahmen 
dieses Artikels jedoch sprengen. 

Gesondert zu behandeln sind alle 
Befehle, die den linearen Programm- 
ablauf beeinflussen. Der GOTO-Befehl 
läßt sich vergleichsweise einfach über- 
setzen. Zuerst wird die Routine aufge- 
rufen, die einen Integer-Ausdruck über- 
setzt und optimiert (wie oben); aller- 
dings generiert sie ihn noch nichtin den 
endgültigen Maschinencode. Zunächst 
wird nur der P-Code erzeugt. Dann wird 
anhand des P-Codes überprüft, ob eine 
Zahl folgt. Wenn ja, wird ein JMP-Befehl 
compiliert. Zunächst nur »07 Zeile«, 
woraus sich nach Paß 2 »4C Adresse« 
ergibt. Wenn nein, wird die Routine für 
die Erzeugung von Maschinencode 
aufgerufen und »JSR GOTOX« ange- 
hängt. Bei einem berechneten GOSUB 
wird beispielsweise entweder »JSR 
GOSUBX« oder vor dem »JMP-($07)«- 
Befehl der GOTO-Anweisung ein Unter- 
programmaufruf compiliert. Dieser ent- 
hält dann, auf dem Basic-Stack, die um 
drei Werte erhöhte Rücksprungadres- 
se des Befehls. Es wird aber nicht ein- 
fach ein JSR compiliert, da sonst die 
Anzahl der Unterprogrammebenen 
durch den zu kleinen 6502-Stack 
begrenzt wäre. Außerdem müssen die 
Parameter für die FOR-NEXT-Schleifen 
ebenfalls auf diesem Stapel abgelegt 
werden. Sie belegen jeweils 16 Byte, so 
daß sehr schnell ein Overflow des 
6502-Stack drohen würde. Dies 
könnte katastrophale Folgen haben und 
die Kompatibilität zum Interpreter-Basic 
stark einschränken. Zumindest ist die 
untere Hälfte der Seite 1 frei, und es 
gibt Programme, die mehr als 10 ge- 
schachtelte Schleifen verwenden. Der 
Zeitverlust durch diesen simulierten 
Stack hält sich jedoch in Grenzen. 

Einen ähnlichen Stack verwendet der 
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Compiler auch zur Übersetzung von 
DO-LOOP, REPEAT-UNTIL, WHILE- 
WEND und FOR-NEXT-Schleifen sowie 
des EXIT-Befehls. 

Bei DO wird die aktuelle Adresse auf 
diesem Stapel abgelegt. Sie erhält 
außerdem noch die DO-Befehlsken- 
nung. Bei Übersetzung des zugehöri- 
gen LOOP wird die Kennung daraufhin 
überprüft, ob ein DO fehlt und dann ein 
JMP-Befehl auf die zuvor festgestellte 
Adresse compiliert. Solltezwischen DO 
und LOOP ein EXIT gestanden haben, 
so hat dieser Befehl seine eigene Ken- 
nung auf dem Stack hinterlassen und 
einen JMP-Befehl mit »Dummy«- 
Adresse erzeugt. LOOP ersetzt diese 
Adresse durch die auf den eigenen 
JMP-Befehl folgende. 


Geschwindigkeit 
ist Trumpf 


Bei REPEAT ist der Vorgang ähnlich 
wie bei DO. Es unterscheidet sich ledig- 
lich die Kennung. Wenn UNTIL auf eine 
REPEAT-Anweisung folgt, wird zuerst 
der folgende Ausdruck übersetzt. Erst 
dann wird ein bedingter Sprung ange- 
hängt. Da der 6502 nur relativ kurze, 
bedingte Sprünge kennt, wird mit »BNE 
*+5:JMP ad« gearbeitet. Natürlich 
muß auch UNTIL eventuelle EXIT- 
Befehle berücksichtigen. 

WHILE-WEND entspricht dem eben 
Besprochenen, nur steht hier die 
Bedingung am Schleifenanfang. 

Bei FOR-NEXT-Schleifen ist noch zu 
beachten, daß zusätzlich der Basic- 
Stack benutzt wird. Deshalb wird auto- 
matisch ein POP-Befehl in den EXIT- 
Befehl eingeschlossen. 

Damit ist die Wirkungsweise des 
Compilers erklärt. Vielleicht ist Ihnen 
aber noch nicht ganz klar, wie der Inter- 
preter und der Compiler die Reihen- 
folge der Berechnungen feststellen. 
Der Interpreter führt die Berechnungen 
aus, der Compiler erzeugt einen P- 
Code. Trotzdem funktionieren beide 
nach dem gleichen Prinzip. Zur Zwi- 


schenspeicherung der Operatoren 
dient jeweils ein Stack (Stapel). Dazu 
ein einfaches Beispiel: 


8%*Sin(A)+16 


Der Compiler liest die Ziffer 8. Als 
Zahl wird sie sofort compiliert. (Der 
Interpreter würde sie auf dem Zahlen- 
stapel ablegen.) Dann wird das Token 
für Multiplikation (*) mit der Priorität 5 
gelesen. Da der Stapel für Operatoren 
nochleer ist (PrioritätO), wird das Token 
dort abgelegt. Als nächstes folgt SIN 
mit der höchstmöglichen Priorität (9). 
Weil diese größer ist als die auf dem Sta- 
pel (5), wird auch SIN auf den Stapel 
gelegt. Dann folgt die geöffnete Klam- 
mer. Als Spezialfunktion ruft die Klam- 
mer dieselbe Routine noch einmal, 
allerdings rekursiv auf. Es wird also der 
Wert in Klammern entsprechend über- 
setzt oder berechnet. Dann kommt die 
Variable A an die Reihe. Variablen wer- 
den, genauso wie Zahlen, sofort compi- 
liert. Dann schließt als Endekennzei- 
chen die Klammerab. Weiter gehtesmit 
der ursprünglichen Übersetzung. Es 
folgt nun das Token für Addition (+), 
dessen Priorität (4) kleiner als die auf 
dem Stapel ist. Deshalb wird jetzt der 
SIN-Befehl compiliert. Anschließend 
wird noch die vorliegende Priorität mit 
der des »*«Tokens (5) verglichen. Da 
sie wieder kleiner ist, wird jetzt die Mul- 
tiplikation compiliert. 

Der leere Stack hat die Priorität O, 
also wird das Token für Addition auf dem 
Stack abgelegt. Dann folgt die Zahl 16 
und schließlich das Endekennzeichen 
mit der Priorität 0. Der Stapel ist 
anschließend leer, die Addition wird 
compiliert, und der Vorgang ist been- 
det. Der entstandene P-Code lautet 
»Zahl 8 Var A Sin Mult Zahl 16 Add«. 

So einfach wie hier beschrieben, ist 
das Compilieren von Basic-Program- 
men jedoch nicht. Es sollte an dieser 
Stelle vielmehr gezeigt werden, wie der 
Turbo-Compiler prinzipiell funktioniert. 
Sollten alle Vorgänge beim Compilieren 
beschrieben werden, würde dies ein 
Buch füllen. Noch ein Tip: Das 
Standard-Atari-Basic ist wegen eines 
Betriebssystem-Fehlers nicht in der 
Lage, »A=NOT NOT A« zu berechnen. 
Dies hängt mit der Stapelverarbeitung 
zusammen. Probieren Sie diese Be- 
fehlsfolge doch einfach einmal auf 
Ihrem Atari 800XL aus. Aufgrund der 
Syntaxkontrolle ist der Befehl nicht 
zulässig. Die alten Atari-Computer rea- 
gierten auf »A=NOT NOT A« mit einem 
Systemabsturz. Geben Sie die Pro- 
grammzeile doch einfach einmal unter 
Turbo-Basic-XL ein. Sie werden sehen, 
daß auch solche komplexen, logischen 
Verknüpfungen ordnungsgemäß funk- 
tionieren. (Frank Ostrowski/wb) 
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BASIC-Programmierung, zum Umgang mit Kas- 
selten, Drucker und Diskettenstation, zum Er« 
zeugen von Bild una Ton. Es ist reich bebildert 
und enthält eine Vielzahl der für den ernsthaft 
Interessierten so wichtigen Tabellen. Beson- 
ders im Anhang findet sich so mancher Lacker- 
bissen für den echten Freak, z.B. eine Erklärung 
der wichtigsten Speicheradressen für PEEKS 
ung POKES. 

® Ein Handbuch zur Lösung aller Atarl- 
Probleme. 
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Das Atari-Buch 

Band 1: Grundlegende auf dem Atari 
Programmier- November 1984, 320 Seiten 
möglichkeiten Zu einem Computer tür Junge 


Laute gehört auch ein Lehr- 
und Lernbuch für junge Laute. 
Da tut 0s nicht irgendein B&- 
SIC-Buch: der Aufbau, die 
verwendeten Beispiele, das 


Oktober 1984, 158 Seiten 
‚Auch wer BASIC kann und 
sein Atari-Handbuch durch- 
‚gearbeitet hat, wird ohne zu- 


Sätziche Anregungen seinen Lermiempo und nicht zuletzt 
Keer RR vollig der Fr nn stimmen 
ausschöpfen können. EI 
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ISBN 3-89090-039-9 
DM32,-1sFr. 29,50/08 249,60 


Band 2: Spezielle ‚Brett- und Wortlisten), denn 

rogrammier- auch an ihnen laßt sich Pro- 
= Ken an grammieren erlernen. Die 
ren Laxtionen sind nicht zu lang, 
Maschinenprogramme mit Grafiken aufgelockert und 


mit Übungsbeispielen verse- 
hen (selbstverständlich inklu- 
sive Lösungen), 

Bost-Nr. MT 692 

ISBN 3-89090-007-0 

DM 38,41sFr. 35,465 296,40 


Oktober 1984, 197 Seiten 
Das ideale Buch für die 
Atari-Programmierung in Mar 
schinensprache. 

Bost-Nr. MT 704 

ISBN 3-89090-072-0 

DM 32,-/sFr. 29,50/68 249,60 


H. KohUT. Kahn) 
L Undsay/p Cieland 
Spiel und Spaß 


AZ. Lamothe 
Ausgesuchte Atari- 
Programme mit Listings 


mit dem Atari Oktober 1984, 171 Seiten 
1084, 238 Selten Es gibt örei Möglionkeiten, mit 
Den Umgang mit dem Compu- ‚einem Computer zu arbeiten: 


toriornt man am besten durch 
‚Ausprobieren; deshalb sollte 
ein Einführungsbuch mög- 
lichst viele Beispiele enthal- 


grammieren oder ippt Pro- 
gramme ab und macht sich so 


ton. In diesem Buch finden mit der Funktion seines Com- 
Sie daher über 100 Pro:  puters vertraut. 
steine, die zusam- Dieses Buchist für diejenigen 


grammbaust 
mon mit 20 fertigen und vol 
ständigen Programmen ein 
soldes Fundament für den 
Umgang mit BASIC und Ihrem 
Computer iogen. So können 


‚gedacht, die es mit der ortten 
Methode versuchen wollen. 
Durch das Abschreiben der 
Programme lernen Sie leich- 
ter den Umgang mit Ihrem 


Sie besser die interessanten Computer und werden an die 
Ton- und Grafikmöglichkeiten Grundbegriffe des Program- 
des Aları nutzen. mierens herangeführt. 


© Ein Lehr- und Arbeitsbuch 
für Anfänger, die BASIGundih- 


All Programme laufen mit der 
‚Atar-BASIC-Version, die mit 


renAtarikenneniernenwolen. fast allen Atar-Computem 
Best-Nr. MT 672 ausgehetert wird. 
ISBN 3-89090-002-K Best-Nr. MT 759 
DM42,-isFr.38,60108327,60 ISBN 3-89090-070-4 

DM 32,4sFr. 29,50/05 249,60 


Der Atari als Musikbox 

November 1984, 194 Seiten 
Die Soundmöglichkeiten des. 
‚Atari sind schon beinahe le- 
gendär, sie nutzen Ihnen je- 
‚doch wenig, wenn Sie über 


Januar 1985, 224 Seiten 


Ein eigones Buch nur für Gra- 
1X? Bei den umwerlenden 


EI 
Muss Fmes 
I 
en Am 


sen. Deshalb bringt dieses 
Bucheine Füls eintachar und 
iohecher _ Programmbei- 
pie, die auch dem in BASIC 
‚nicht 50 Versiorten das Ver- 
ständnis_ der wichtigsten 
Techniken erlauben. Und zo 
aberschon können, ummög können Sie zuletzt nicht nur 

‚viel von diesem Buch zu beliebige Klänge erzeugen 
Kofanelvondiesemuchzu nor den Computer In onen 
© Grafikprogrammierung für ‚Synthesizer verwandeln, Sie 


„besitzen auch eine eigene 
fans a dem" Diskotheke von bellebton 


erzeugung eingeführt wer- 
en: Es sol schon auch bunt, 
bewegt und dreidimensional 
zugehen. Wie man Zeichen- 
sätze verändert, erfahren Sie 
selbstverständlich auch, Ein 
bißchen BASIC sollten Sie 
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TURBO-BASIC 


Der Unterschied liegt 


Läuft Ihr Programm nicht unter 
Turbo-Basic XL? Einige Ände- 
rungen lassen auch Ihr norma- 
les Atari-Basic-Programm zum 
Renner werden. 


urbo-Basic XL ist wesentlich 
schneller als das eingebaute 
Atari-Basic (siehe hierzu auch den 
Geschwindigkeitsvergleich zwischen 
den derzeit erhältlichen Basic-Versio- 
nen für den Atari 800XL und 130XE 
in diesem Sonderheft). Die hohe 
Geschwindigkeit ist in den meisten 
Anwendungsfällen sicher erwünscht. 
Allerdings ergeben sich daraus auch 
manchmal Probleme. Oftsind nämlich in 
Atari-Basic geschriebene Spielpro- 
gramme unter Turbo-Basic XL kaum 
mehr spielbar, da die enorme 
Geschwindigkeit dem Spieler nicht 
mehr genügend Reaktionszeit erlaubt. 
Abhilfe: Verzögerungen in Form von 
Warteschleifen einbauen oder denspe- 
ziellen PAUSE-Befehl verwenden. Oder 
bauen Sie doch einfach zusätzliche 
Geräusch-Effekte ein. 

In Atari-Basic wird eine kurze Verzö- 
gerung auch mit »Q=1\\« realisiert. In 
Turbo-Basic XL wird diese Berechnung 
aber wesentlich schneller als in Atari- 
Basic ausgeführt. Potenzierung mit 
ganzzahligem Exponenten (<100) 
wird durch wiederholte Multiplikation 
berechnet, undicht, wie in Atari-Basic, 
nach der Formel »a’b=exp(b*log(a))«. 
Am einfachsten ist es, »Q=1"1« durch 
»PAUSE 9« zu ersetzen. Dies nimmt 
etwa die gleiche Zeit in Anspruch und 
spart sogar etwas Speicherplatz. 

Verzögerungsschleifen mit FOR.. 
NEXT.. sind in Atari-Basic sehr langsam 
- besonders wenn sie sich am Pro- 
grammende befinden. Am besten 
ersetzen Sie solche Schleifen auch 
durch entsprechende PAUSE-Befehle. 


Verbotene Befehle 


Turbo-Basic XL beinhaltet wesentlich 
mehr Befehle als Atari-Basic. Deshalb 
können Probleme mit Variablennamen 
auftreten. Namen wie ERR, HEX$ oder 
DEL(ta) sind nämlich in Atari-Basic 
erlaubt, in Turbo-Basic XL jedoch nicht 
(es handelt sich hierbei um reservierte 
Worte). Beim Laden und Starten eines 
Atari-Basic-Programms macht sich 
dieser Unterschied noch nicht bemerk- 
bar. Erst wenn Sie versuchen, ein Pro- 
gramm mit diesen Variablennamen zu 


im Detail 


editieren, ergeben sich Fehlermeldun- 
gen oder falsch übersetzte Programm- 
zeilen. Bei »LET ERR=100« wird die 
Variable ERR benutzt, bei »A=ERR« 
jedoch die Turbo-Basic XL-Funktion 
»ERR«. Dann bleibt als einzige Alterna- 
tive, die Variablennamen manuell zu 
ändern. Dabei hilft übrigens der DUMP- 
Befehl, mit dem man sich die im Pro- 
gramm verwendeten Variablen auflisten 
lassen kann. 

Nach dem Laden des betreffenden 
Programms mit LOAD geben Sie ein- 
fach DUMP ein, und alle Variablen wer- 
den auf dem Bildschirm ausgegeben. 
Falls Sie einen Drucker besitzen, erfolgt 
die Ausgabe nach >»DUMP ”P:”« auf 
dem Drucker. Schreiben Sie sich dann 
alle Variablennamen auf, die geändert 
werden müssen. Dabei bleibt es Ihnen 
nicht erspart, jede einzelne Programm- 
zeile zu kontrollieren und gegebenen- 
falls zu ändern. Speichern Sie das 
Programm anschließend mit »LIST 
"Dixxx.xxx”« auf Diskette, geben Sie 
NEW und dann »ENTER ”D:iox.xx” « 
ein. Diese Befehlsfolge bewirkt, daß die 
Variablennamentabelle neu geschrie- 
ben wird. Nicht benutzte Variablen bele- 
gen dann auch keinen Speicherplatz 
mehr. Mit DUMP können Sie nochmals 
kontrollieren, ob Sie irgendwelche 
Variablen übersehen haben. Wenn Sie 
alle Korrekturen vorgenommen haben, 
sichern Sie das Programm mit SAVE auf 
Diskette und führen Sie einen Probelauf 
durch. 

Turbo-Basic XL liegt nicht im ROM 
vor, sondern wird von Diskette geladen. 
Da es noch wesentlich umfangreicher 
als Atari-Basic ist (etwa 18 KByte statt 
8 KByte), wurde ein Großteil des Inter- 
preters unter den OS-ROMSs versteckt 
(12 KByte). Die restlichen 6 KByte 
befinden sich an der Speicherunter- 
grenze direkt über dem DOS. 

Ursprünglich wurde Turbo-Basic XL 
auf einem Atari 400 mit 48 KByte RAM 
geschrieben. Bei dieser Version befand 
sich der gesamte Interpreter über dem 
DOS. Allerdings blieben so nur etwa 20 
KByte für Basic-Programme übrig. Der 
800XL besitzt dagegen insgesamt 64 
KByte RAM, die Turbo-Basic XL auch 
voll nutzt. Von den zusätzlichen 14 
KByte werden aber noch 2 KByte von 
Kopien der beiden ROM-Zeichengene- 
ratoren belegt. Eine Maßnahme, die 
Bildstörungen bei Textdarstellung - 
sobald das ROM abgeschaltet wird — 
verhindert. Turbo-Basic XL ist nun aber 
viel zu umfangreich, um in die verblei- 


benden 12 KByte hineinzupassen. 
Deshalb ließ es sich nicht umgehen, 
auch einige Programmteile in Berei- 
chen abzulegen, die normalerweise für 
Basic-Programme reserviert sind. Auf 
diese Art und Weise lassen sich Unter- 
programme der ROMs benutzen. Wei- 
terhin erlaubt dies noch die Durchfüh- 
rung der Interrupts. 

Der im Basic-Bereich untergebrachte 
Teil von Turbo-Basic XL belegt die 
Adressen von $2080 bis $3629 (hexa- 
dezimal). Es handelt sich also um den 
Bereich direkt oberhalb von DOS 2.5 
bei fünf: installierten Diskettenlaufwer- 
ken (D1: bis D4: und der RAM-Disk D8: 
auf dem 130 XE) und 7 Filepuffern. Ein 
POKE in diesen Bereich dürfte meist 
zum Absturz des Computers führen, 
oder - was weitaus schlimmer wäre - zu 
einem Fehlverhalten des Interpreters. 
Denn daraus können sich sogar falsche 
Rechenergebnisse ableiten. 

Während der Ausführung der Befehle 
POKE, DPOKE, MOVE und -MOVE 
wird jeweils der ROM-Bereich einge- 
schaltet. So können diese Befehle im 
»ROM«<Teil von Turbo-Basic XL keinen 
Schaden anrichten. Außerdem ist der 
ROM-Bereich noch bei den Befehlen 
PEEK, DPEEK, allen I/O-Befehlen wie 
PRINT, INPUT, BGET, BPUT eto. akti- 
viert, jedoch nicht bei PAINT, sowie der 
Ausführung einiger Arithmetik-Routi- 
nen (es werden einige Werte aus den 
Floating-Point-Routinen sowie die 
STR$- und VAL-Routinen verwendet). 


Vorsicht, Interrupt! 


Tritt ein Interrupt auf, während die 
ROMs eingeschaltet sind, wird er wie 
gewohnt ausgeführt. Wenn die ROMs 
allerdings ausgeschaltet sind, ver- 
zweigt der Interrupt zuerst in den 
unteren RAM-Teil des Interpreters. Dort 
werden zuerst die ROMs eingeschaltet. 
Nachdem ein Interrupt für die ROM- 
Routinen simuliert wird, werden die 
ROMs wieder stillgelegt. Aus diesem 
Grund dauern die Interrupt-Routinen 
einige Mikrosekunden länger. Dies gilt 
allerdings nicht für den Display-List- 
Interrupt (DLI), da dieser parallel zum 
Bildaufbau ablaufen muß. Der Interrupt 
wird hier schon vom Interpreter er- 
kannt, so daß er sofort ausgeführt wer- 
den kann. Er muß also auch bei abge- 
schalteten ROMs ablaufen. 

Der Speicherplatz für Basic-Pro- 
gramme, Daten und den Stack reicht 
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unter Atari-Basic bis $AO00 (40960), 
unter Turbo-Basic XL aber bis $C000 
(49152). Das Basic-ROM wird hierbei 
nämlich nicht benutzt und kann deshalb 
immer abgeschaltet bleiben. Reine 
Basic-Programme, also ohne USR- 
Aufrufe und POKEs, sind von dieser 
Verschiebung nicht betroffen. Kritisch 
sind POKEs und USR-Aufrufe in Adres- 
sen im Bereich zwischen 30000 und 
40960. Wenn Sie also ein Programm 
verwenden, das einen Befehl wie bei- 
spielsweise »POKE 39994,4« enthält, 
dürfte das Programm unter Turbo-Basic 
XL.nur mit einigen Anpassungen laufen. 
Dieser POKE-Befehl verändert übri- 
gens die Display-List. Hierbei handelt 
es sich um die Maschinensprache des 
Videoprozessors, der Antic genannt 
wird. 

Da es auch noch den 600 XL mit 16 
KByte und den Atari 400 und 800 mit 
16, 32 und 48 KByte RAM gibt, existie- 
ren auch Programme, die sich an ver- 
schiedene Speichermengen anpas- 
sen. Dazu benutzt das OS (Operating 
System) des Atari verschiedene Pointer 
(Zeiger), auf die auch Basic zurück- 
greift. Der wichtigste davon ist RAM- 
TOP, also die Speicherzelle 106 ($6A). 


Sie enthält das MSB (Most Significant 
Byte) der ersten nicht mehr benutzba- 
ren Speicherzellen für Programme. Das 
heißt, nach »PEEK(106)*256« erhält 
man einen Wert, der um eins höher ist 
als die höchste RAM-Adresse. In Atari- 
Basic ergibt »PEEK(106)« also 160 
($AO), in Turbo-Basic XL entsprechend 
192 ($C0). Durch »POKE 106,PEEK 
(106)-16« lassen sich so 4096 Bytes 
(16* 256) vor dem Zugriff durch dasOS 
und Basic schützen. 

Anschließend ist noch ein GRA- 
PHICS-Befehl nötig, um die anderen 
Pointer anzupassen und um den Bild- 
schirmspeicher zu verschieben. Durch 
»POKE 106,160:GRAPHICS O« am 
Anfang eines Programms wird also die 
‚Atari-Basic-Speicheranordnung simu- 
liert. Dann bleiben allerdings wieder 8 
KByte weniger Speicherplatz für das 
Basic-Programm übrig. Dafür beginnt 
aber der Bildschirmspeicher schon ab 
Adresse 40000 statt 48192. Für kurze 
Programme reicht diese Minimalanpas- 
sung vollkommen aus. Sollte ein Pro- 
gramm aber länger sein, wie zum Bei- 
spiel »Magic-Painter« (Listing des 
Monats, Happy-Computer, Ausgabe 
3/85), gibt es zwei Möglichkeiten: 


‚Atari-Basic 


Adresse 


Adresse 


Turbo-Basic XL 


Interpreter 


1) Alle POKE- und USR-Adressen um 
8192 erhöhen. Dies klappt aber nur bei 
relokatiblen, das heißt, bei verschieb- 
baren Daten und Maschinenprogram- 
men. Leider sind diese recht selten; und 
wenn sie autreten, dann hat der Pro- 
grammierer das Maschinenprogramm 
meist in einem String untergebracht 
(das Kennzeichen dafür ist stets: 
»USR(ADR(X$)....))e. Dieser Aufruf 
bereitet aber keine Schwierigkeiten. 
Sie können natürlich die Maschinenpro- 
gramme relozieren, also an die andere 
Adreßlage anpassen. Dies erfordert 
aber Assemblerkenntnisse und viel 
Zeit- und Arbeitsaufwand. Einfacher ist 
es, wenn der Quelltext des Programms 
zur Verfügung steht. 


Verbotene Adressen 


Auf Probleme stößt man auch beiden 
Daten für Player/Missile-Grafiken oder 
bei veränderten Zeichensätzen. Hier 
sind die POKE-Befehle, die deren 
Adressen dem Operating System oder 
der Hardware mitteilen, anzupassen. 
Dabei handelt es sich meist um POKEs 
auf die Adressen 756, 54279, 561 
und 89 (und 513 etc.). Der gePOKEte 
Wertist dann jeweils um 32 zu erhöhen. 
Manchmal werden diese Adressen 
auch innerhalb von Maschinenpro- 
grammen angesprochen. 

Sie sehen also, daß diese Anpassung 
ohne genaue Kenntnisse des Pro- 
gramms und der Hardware fast unmög- 
lich ist. 

2) Das Programm um 8 KByte kürzen. 
Dies ist bei großzügig (gut) kommentier- 
ten Programmen manchmal allein durch 
Streichen der REM-Zeilen zu errei- 
chen. Oft hilft auch das Auslagern von 
DATASs in ein Vorprogramm, das in einer 
READ-Schleife Daten einPOKEt, und 
dann das gekürzte Hauptprogramm mit 
»Run "D:xxx.xxx”« startet. Schneller 
ist aber ein entsprechender BLOAD- 
oder BGET-Befehl, wenn die Daten im 
entsprechenden Format auf Diskette 
vorliegen. Dies spart übrigens auch 
wertvollen Platz auf der Diskette. Wei- 
terhin läßt sich auch durch geschickten 
Einsatz der erweiterten Turbo-Basic XL- 
Befehle viel Speicherplatz sparen. 

Durch einen kombinierten Einsatz 
dieser Mittel wurde auch das Programm 
»Magic-Painter« angepaßt. Besonders 
hilfreich waren dabei die Befehle 
BLOAD, CIRCLE und TEXT. Noch ein 
Tip: Wäre »Magic-Painter« in Turbo- 
Basic XL geschrieben worden, könnte 
es ohne weiteres in der höchstauflö- 
senden Farbgrafikstufe 15+16 arbei- 
ten, statt in Grafikstufe 7+16. Schließ- 
lich stehen unter Turbo-Basic XL 
8 KByte RAM mehr zur Verfügung. 

(Frank Ostrowski/wb) 
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Auf die Taste, 
fertig, los! 


m Aussagen über die Geschwin- 
U digkeit eines Computers oder 
einer Programmiersprache 
machen zu können, bedient man sich 
üblicherweise sogenannter Bench- 
mark-Programme. Hierbei handelt es 
sich um kurze Algorithmen, die mög- 
lichst ohne Änderung auf allen zu 
testenden Versionen laufen sollten. In 
diesem Fall wurden alle Benchmarks in 
Standard-Atari-Basic geschrieben und, 
soweit dies durchführbar war, direkt in 
die anderen Sprachen übernommen. 
Neun unterschiedliche Benchmarks 


Wie schnell Turbo-Basic-XL und 
der Turbo-Basic-Compiler wirk- 
lich sind, soll ein Vergleich mit 
anderen Programmiersprachen 
und Compilern zeigen. 


werden erweisen, wie schnell Turbo- 
Basic XL und der Turbo-Compiler im 
Vergleich mit anderen Programmier- 
sprachen für den Atari sind. Zur Zeit- 
messung wurden die Speicherstellen 
19 und 20 herangezogen. Die Spei- 
cherstelle 20 wird durch einen Inter- 


ruptimpuls 50mal pro Sekunde inkre- 
mentiert. 

Ist der Wert 256 erreicht, erhöht sich 
der Wert in Speicherstelle 19 um 1 und 
Adresse 20 wird auf O zurückgesetzt. 
Liest man diesen Zwei-Byte-Wert und 
teilt ihn durch den Faktor 50, so erhält 
man eine Zeitangabe in Sekunden. Um 
die Unterschiede der Rechenzeiten 
deutlicher zu machen, wird jeder 
Benchmark 1000mal durchlaufen. 

Als erste Vergleichssprache diente 
natürlich das normale Atari-Basic. Wie 
man der Tabelle entnehmen kann, ist 


18 DIM M(S) ‚As(1008) 

20 ? "ATARI-BENCHMARKS" 

99 REM *** Bench 1 “ws 

180 FOKE 28,0:POKE 19,8 

11® FOR I=1 TO 1908 

12@ NEXT I 

138 Ti=PEEK (20) +PEEK (19) #256 
190 ? "Tia=A"; T1/50 

199 REM x##* Bench 2 ##* 

202 FÜKE 2@,0:POKE 19,8 

210 K 

228 +1 

230 IF K<1002 THEN 228 

240 T2=PEEK (28) +PEEK (19) #256 
298 ? "T24=.";12/5@ 

299 REM #*** Bench 3 ##* 

3@@ POKE 28,0:POKE 19,0 

312 K=@ 

328 K=k+1 

E30 A=K/KaK+K-K 

340 IF K<1080 THEN 320 

350 TS=PEEK (28) +PEEK (19) #256 
398 ? "T34=."; 13/58 

399 REM ##* Bench 4 #* 

480 FOKE 20,0:POKE 19,8 

410 K=8 

420 K=K+1 

438 A=K/2x3+4-5 

448 IF K<1000 THEN 428 

458 T4=PEEK (28) +PEEK (19) #256 
498 ? "T4.=4"; 14/58 

499 REM *** Bench 5 *** 

582 POKE 2@,0:POKE 19,2 

510 K=8 

528 K=k+1 

53@ A=K/2#3+4-5 

5490 SOSUB 2200 

550 IF K<1@80 THEN 520 

568 TS=PEEK (28) +PEEK (19) #256 
598 ? "T5.=."; 15/58 

599 REM »** Bench & #** 

600 POKE 29,0:POKE 19,8 


<CC> | 610 Kk=® 

<CH> | 62@ K=k+ı 

<PA> | 638 A=K/2#3+4-5 

<XQ> | 648 GOSUB 2090 

<GV> | 658 FOR I=1 T0 5 

<FV> | 668 NEXT L 

<CE> | 678 IF K<120Q THEN 628 

<6Z> | 688 T6=PEEK (20) +PEEK (19) #256 
<0Z> | 69@ ? "T6. T6/58 

<XR> | 699 REM ##* Bench 7 »#* 
<FF> | 788 POKE 28,0:POKE 19,8 
<RD> | 719 K=8 

<0G> | 72@ K=K+1 

<CN> | 739 A=K/2#3+4-5 

<HZ> | 740 GOSUB 2098 

<PT> | 758 FOR L=1 TO S 

<XS> | 755 MiLI=A 

<FO> | 76@ NEXT L 

<RE> | 778 IF K<1098 THEN 720 

<OH> | 788 T7=PEEK (28) +PEEK(19) #256 
<RD> | 79@ ? "T74=4"31T7/50 

<CW> | 799 REM “** Bench 8 #** 
<1Z> | 808 FOKE 20,B:FOKE 19,9 
<an> 

<XT> 

<FR> 

SRE> 

<z1> | 850 c=sincK) 

<RY> | 86@ IF K<1008 THEN 82@ 

<DD> | 879 TB=PEEK (20) +PEEK (19) #256 
<3Z> | 898 ? "T8.=."; 18/50 

<RH> | 899 REM ###BENCH 9 

<XU> | 990 FOKE 20,8: POKE 19,8 
<FS> | 910 

<RG> | 928 

<23> | 938 

<RF> | 940 TI=PEEK (Z2@)+PEEK (19) 256 
<SV> | 959 7 "T9u=4"5 19/50 

<DM> | 189@ TS=T1+T2+T3+T44+T5+T6+77+T8479 
<KZ> | 1018 ? =? "SuM: 15/58 
<SB> | 182@ END 

<XV> | 2008 RETURN 


Listing zu »Benchmarks« 
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[Benchmark| Atari- Turbo- | BasicXE | BasicXE | Turbo- ‚Action MMG- ABC- 
Nummer Basic Basic ‚normal fast Compiler Compiler | Compiler 
Tr 2.22 0.76 1.50 1.42 0,50 0.02 0.92 I o 
T2 7.64 3.06 4.56 3.04 0.54 0.02 1.14 1 
T3 20.24 7.58 16.08 8.82 2.82 0.82 8.38 5 
T4 24.12 8.62 16,66 9.72 3.78 16.14 11.86 5 
T5 33.74 9.08 25.92 17.62 3.79 16.14 11.86 6 
T6 58.30 | 14.54 45.40 | 37.12 7.00 16.26 18.44 10 
17 83.58 24.86 62.28 49.98 11.78 17.86 22.73 13 
T8 425.34 | 56.02 | 419.80 | 59.28 | 50.30 | 467.44 | 417.22 - 
T9 el 3.24 6.88 4.20 1.24 28.| 2.68 1 
T1-77 229.84 68.50 172.40 | 127.72 30.38 67.26 73.32 40 
Summe | 663.32 127.76 | 559.08 | 191.20 81.92 | 534.76 | 493.22 - 


Tabelle der erzielten Rechenzeiten 


Turbo-Basic XL bei den einzelnen Tests 
um den Faktor 2 bis 7 schneller als Atari- 
Basic. Der Turbo-Compiler erweist sich 
sogar als rund achtmal so schnell wie 
normales Basic. 

Basic XE schneidet in diesem Ver- 
gleich schon wesentlich besser ab. Im 
normalen Modus ist es zwar kaum 
schneller als Atari-Basic, im sogenann- 
ten »FAST«-Modus jedoch kommt es 
fast an die Zeiten von Turbo-Basic XL 


heran. Hierbei muß allerdings erwähnt 
werden, daß sowohl in Basic XE wie 
auch in Turbo-Basic XL durch die Ver- 
wendung ihrer spezifischen Befehle 
eine Geschwindigkeitserhöhung erziel- 
bar ist. 

In »Action«, einer Compilersprache, 
konnte das Basic-Listing natürlich nicht 
mehr übernommen werden. Jedoch 
wurden die sinngemäß gleichen Algo- 
rithmen verwendet. Lediglich bei 


Benchmark 8 wurde die Sinus-Funktion 
durch den natürlichen Logarithmus er- 
setzt, da in »Action« die Sinusfunktion 
nicht implementiert ist und daher nur 
durch Reihenentwicklung ausführbar 
wäre. Wie die Tabelle zeigt, ist »Action« 
bei der Festkommarechnung kaum zu 
schlagen. In der Gleitkommarechnung 
jedoch (ab Benchmark 4) läßt es aber 
deutlich nach. 

Um einen direkten Vergleich zwi- 
schen Basic-Compilern zu erhalten, 
wurden auch der MMG-Compiler und 
der ABC-Compiler in die Tabelle aufge- 
nommen. Wie man sieht, ist der Turbo- 
Basic-Compiler in jedem Punkt schnel- 
ler als der MMG-Compiler. Der Ver- 
gleich mit dem ABC-Compiler hinkt 
jedoch ein wenig. Dieser Compiler kann 
nämlich keine Gleitkommazahlen verar- 
beiten. Daher sind alle Ergebnisse mit 
Festkommazahlen berechnet, und 
naturgemäß sind die Zeiten entspre- 
chendbesser. Soerklärensichauch die 
gerundeten Zeitangaben in der Tabelle. 
Benchmark Nummer acht konnte mit 
dem ABC-Compiler nicht bearbeitet 
werden, da weder die Sinus- noch die 
Logarithmus-Funktion compiliert wer- 
den. 

(Wolfgang Czerny/wb) 
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Basic, schnell 
wie der Wind 
- mit dem 
Turbo-Basic 
XL-Interpreter 


Ist Ihnen Atari-Basic zu langsam? Oder wünschen 
Sie sich zusätzliche Befehle? Dann ist unser 
Turbo-Basic XL Interpreter genau das richtige. 


reich. Immerhin müssen insgesamt 18108 Byte erst 

einmal eingetippt sein. Eine Aufgabe, die sicher einige 
Stunden in Anspruch nimmt. Haben Sie aber dann den Inter- 
preter auf Diskette vorliegen, sparen Sie sich zukünftig viel 
Zeit für die Entwicklung neuer Programme. Erstens stehen 
Ihnen sämtliche Befehle des normalen Atari-Basic zur Verfü- 
gung, und zweitens sparen die neuen Befehle viel Zeit und 
vor allem Speicherplatz. 

Aber Turbo-Basic XL spart nicht nur Zeit bei der Program- 
mierung, sondern auch bei der Ausführung von Programmen. 
Es macht seinem Namen als schnellstes derzeit erhältliches 
Basic für Atari-Computer nämlich alle Ehre. Wir haben unse- 
ren Interpreter dem normalen Basic und verschiedenen 
Basic-Compilern gegenübergestellt. Turbo-Basic XL siegte 
in jeder Hinsicht. 

Damit Sie mit Turbo-Basic XL und dem dazugehörigen 
Compiler arbeiten können, benötigen Sie unbedingt einen 
Atari 800XL oder 130XE. Besitzer der älteren Computer, 
also Atari 400 und 800, können den Interpreter leider nicht 
benutzen. In der abgedruckten Version setzt Turbo-Basic XL 
mindestens 64 KByte-RAM voraus. Damit aber alle die Vor- 
züge von Turbo-Basic nutzen können, befindet sich auf der 
Leserservice-Diskette eine spezielle Version für die älteren 
‚Atari-Modelle. 

Beachten Sie bitte: Turbo-Basic XL muß unbedingt mit 
AMPEL (Atari-Maschinen-Programm-Eingabe-Hilfe) einge- 
geben werden. Sie finden es auf Seite 87. Von Basic aus läßt 
sich Turbo-Basic XL nicht eingeben. Wenn Sie alle dazugehö- 
rigen Erklärungen befolgen, kann nichts schiefgehen. 


zZ ugegeben, unser Interpreter ist ein wenig umfang- 


Besondere Hinweise zu Turbo-Basic XL 


Bevor Sie Turbo-Basic XL eintippen, müssen Sie AMPEL 
(Atari-Maschinen-Programm-Eingabe-Hilfe) eingeben. 

Turbo-Basic XL ist als »AUTORUN.SYS«-File ausgelegt. 
Das heißt, wenn Sie den Interpreter komplett eingegeben 
haben, können Sie Ihrem File einfach den Namen »AUTO- 
RUN.SYS« geben. Nach dem Einschalten des Computers 
wird dann automatisch Turbo-Basic XL geladen. Anschlie- 
Bend können Sie auch schon mit dem Interpreter arbeiten. 
Einzige Voraussetzung: Die Files »DOS.SYS« und »DUPSYS« 
(entweder DOS 2.0 oder 2.5) müssen sich auf der gleichen 
Diskette befinden. Mit DOS 3.0 arbeitet Turbo-Basic XL übri- 
gens nicht! 
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Hier noch einige Hinweise, wie Sie einen Dateinamen auf 
Diskette ändern können. 

Nehmen wir an, Sie haben Ihrem Interpreter bei der Ein- 
gabe mit AMPEL den Namen »TURBO« gegeben. Dieses File 
soll nun den Namen »AUTORUN.SYS« erhalten. Entfernen 
Sie also zunächst Ihre Turbo-Basic XL-Diskette, und schalten 
Sie bitte den Computer aus. Nachdem Sie eine formatierte 
Diskette, auf der sich die Files »DOS.SYS« und »DUPSYS« 
befinden, ins Laufwerk gelegt haben, schalten Sie den Com- 
puter wieder ein. Anschließend geben Sie »DOS« ein und 
gelangen über die RETURN-Taste ins DOS-Menü. Nun rufen 
Sie auf der Turbo-Basic XL-Diskette mit »E« die Funktion 
»Rename File« auf und drücken RETURN. Die Meldung 
»Give - Old Name, New Name« erscheint. Geben Sie bei- 
spielsweise sTURBO,AUTORUN.SYS« ein. Sollte Ihre Datei 
einen anderen Namen haben, müssen Sie diesen anstelle 
von »TURBO« einsetzen. Nach Betätigung der RETURN- 
Taste wird Ihr File dann umbenannt und hat dann den Namen 
»AUTORUN.SYS«. Überzeugen Sie sich dann, daß der so- 
eben beschriebene Vorgang auch wirklich funktioniert hat. 
Mit»A«für Directory undRETURN wird das neue Directoryauf 
dem Bildschirm angezeigt. Folgende Programme sollten sich 
jetzt auf Ihrer Diskette befinden: DOS.SYS, DUP.SYS und 
AUTORUN.SYS. 

Noch eins, bevor Sie mit Turbo-Basic XL arbeiten, sollten 
Sie sich mindestens eine Sicherheitskopie Ihrer Diskette 
anlegen. Nehmen Sie sich also eine neue oder eine Diskette, 
die Sie löschen können, und formatieren Sie diese. Falls Sie 
über DOS 2.5 verfügen, können Sie sich das Formatieren 
sparen. Mit der Funktion »J« im DOS-Menü wird nun die Dis- 
kette kopiert. Wenn Sie über ein Diskettenlaufwerk verfügen, 
geben Sie jetzt »D1,D1« ein und betätigen daraufhin die 
RETURN-Taste. Der Kopiervorgang beginnt. Dabei werden 
Sie mehrmals aufgefordert, die Original-Diskette mit der 
Duplikat-Diskette auszutauschen. 

Sie haben jetzt also zwei Disketten vorliegen, die exakt die 

gleichen Programme enthalten. Arbeiten Sie aber bitte nur 
mit einer der Disketten, und legen Sie die andere an eine 
sichere Stelle. 
Nach dieser Sicherheitsmaßnahme können Sie endlich 
Turbo-Basic XL ausprobieren. Dazu muß sich nur Ihre Inter- 
preter-Diskette im Laufwerk befinden. Schalten Sie jetzt die 
Stromversorgung Ihres Computers aus und wieder ein. Wenn 
Sie dabei keine Taste, auch nicht die OPTION-Taste, mit der 
normalerweise das eingebaute Basic abgestellt wird, betätigt 
haben, erscheint das Titelbild und kurz danach die READY- 
Meldung. Sie befinden sich jetztin Turbo-Basic XL. Viel Spaß 
beim Programmieren. 
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Ein typischer Turbo-Basic XL-Bildschirm 


Strukturierte Programmierung 


In der folgenden Beschreibung bedeuten: 
aexp=arithmetic expression (arithmetischer Ausdruck) 
sexp=string expression (Text Ausdruck (A$, "TEXT", 
CHR$(), STR$(), HEX$()) 
lineno=Zeilennummer 
»...e=Ein oder mehrere Befehle. In einer IF-THEN-Abfrage 
handelt es sich hierbei um den nach THEN folgenden Text. 
Sonst gibt es keine Beschränkung. »...« kann also auch meh- 
rere Programmzeilen und/oder den Teil einer Programmzeile 
umfassen. 

Es gibt im Standard-Atari-Basic nur zeilennummerorien- 
tierte Sprungbefehle und die »FOR...NEXT«-Schleife zur Kon- 
struktion von Schleifen. In Turbo-Basic XL gibt es zusätzliche, 
an Pascal angelehnte, Strukturelemente. 

IF aexp THEN lineno 

IF aexp THEN ... 

Das normale IF...THEN Statement. 
IF aexp ... ENDIF 

IF aexp ... ELSE ... ENDIF 

Wenn die Bedingung aexp erfüllt (< > 0) ist, wird der Pro- 
grammteil zwischen IF und ELSE, sonst der zwischen ELSE 
und ENDIF, ausgeführt. ELSE kann auch entfallen. Als Trenn- 
zeichen nach aexp dient nicht THEN, sondern ein Doppel- 
punkt (:) oder Zeilenende (RETURN). Auch vor und nach 
ELSE und ENDIF muß ein solches Trennzeichen stehen. 
Nach ELSE darf keine Zeilennummer folgen. In Atari-Basic 
benötigt man dafür oft mehrere GOTO-Befehle. 

REPEAT ... UNTIL aexp 

Wiederholt die Anweisungen »...«, bis die Bedingung erfüllt 
ist. Hier wird die Bedingung erst am Ende der Schleife 
geprüft. Der Programmteil zwischen REPEAT und UNTIL wird 
also mindestens einmal ausgeführt. 

WHILE aexp ... WEND 

Wiederholt »...«, solange die Bedingung erfülltist, das heißt, 
wenn die Bedingung das erste Mal nicht erfüllt ist, wird die 
Schleife kein einziges Mal ausgeführt. 

DO ... LOOP 

Endlosschleife. Wiederholt die Anweisungen »...« immer 
wieder von neuem. 
EXIT 

Verläßt eine Schleife, Sprung ans Schleifenende. Dieser 
Befehl ist verwendbar bei »DO ... LOOP« und »REPEAT ... 
UNTIL«, »WHILE ... WEND« und auch bei »FOR ... NEXT«- 
Schleifen. Dieser Befehl stellt eine Art Notausgang aus 
Schleifen dar, bei »DO ... LOOP« sogar den einzigen, der in 
strukturierten Programmen erlaubt ist. Es wird stets an das 
Ende der Schleife gesprungen. Eine Schleife läßt sich auch 
mit »POP:GOTO lineno« abbrechen. Dies sollte jedoch nur im 
Notfallgeschehen, da dieser Befehl nicht zur übersichtlichen 
Programmierung beiträgt. 

“F 
“F+ 

Nach diesem Befehl sind »FOR ... NEXT«-Schleifen abwei- 
send. Es wird also vor dem ersten Durchlauf der Schleife 
geprüft, ob der Zähler schon den Endwert erreicht hat. Dazu 
ein Beispiel: »FOR I=2 TO 1:? I:NEXT Ik. 

1. Der Anfangswert der Schleife ist 2 

2. Schleifenzähler um 1 erhöhen 

3. Vergleich mit dem Endwert (1) 

4. Verlassen der Schleife, da die Bedingung erfüllt ist. 

Nach «#F + wird zuerst die Variable | mit dem Anfangswert 
2 geladen und dann mit der Variablen I (Endwert=1) vergli- 
chen. Anschließend wird die Schleife bis zum »NEXT I«- 
Befehl übersprungen. Es erfolgt keine Ausgabe auf dem Bild- 
schirm. Der »F+«-Befehl erspart oft eine spezielle Abfra- 
geroutine. 


Eon 


AF- 

Stellt den Normalzustand wieder her. »FOR ... NEXT«- 
Schleifen werden mindestens einmal durchlaufen. Auch bei 
RUN wird automatisch ein »%* F -«ausgeführt (entspricht dem 
Atari-Basic). 

PROC name 

Beginn eines Unterprogramms (Prozedur) mit dem Namen 
name. 
ENDPROC 

Prozedurende. Entspricht dem RETURN nach einem 
»GOSUB lineno«. 

EXEC name 

Ruft die Prozedur name auf, entspricht »GOSUB lineno«. 
Die normalen Befehle GOSUB und RETURN erlauben, nur 
Unterprogramme mit einer Zeilennummer aufzurufen. Hierist 
der Aufruf mit einem leichter zu behaltenden Namen möglich. 
Außerdem belegt EXEC-PROC-ENDPROC meist sogar 
weniger Speicherplatz als GOSUB-RETURN und ist etwas 
schneller. Die Prozedurnamen werden genauso gespeichert 
wie die Variablennamen. Jeder Name belegt 8 Byte plus ein 
Byte für jedes Zeichen. Jede weitere Verwendung benötigt 
dann nur ein (zwei) Byte. Die Zeilennummer einer GOSUB- 
Anweisung belegt dagegen 7 Byte. Obwohl Turbo-Basic XL 
kompatibel zu Atari-Basic ist, können statt 128 jetzt 256 ver- 
schiedene Variablen- oder Prozedurnamen verwendet wer- 
den. Ab der 129sten Variablen kostet jede Verwendung zwei, 
statt bisher nur 1 Byte Speicherplatz. 

ON aexp EXEC pname,pnam... 

Entspricht der Atari-Basic-Anweisung »ON GOSUB«. 

pnam=PROCedurname. 

# name 

GO# name 

ON aexp GO # nam,nam,nam 
TRAP #name 

RESTORE # name 

Labeldefinition, das # entspricht dem PROC. In Turbo- 
Basic XL läßt sich der unstrukturierte Sprungbefehl GOTO 
wenigstens dadurch lesbarer machen, daß »GOTO zeilen- 
nummer« durch »GO # name« ersetzt wird. Auch bei TRAP 
und RESTORE können Marken verwendet werden. Dabei 
wird die Kennung » #« verwendet, um dem Interpreter mitzu- 
teilen, daß keine Zeilennummer, sondern ein Name folgt. 
Übrigens ist »GO # name« schneller als »GOTO zeile«. Die 
Marken für GO#, TRAP# und RESTORE # werden mit # 
gekennzeichnet, die für EXEC mit PROC. Diese strikte Tren- 
nung dient zur Erhöhung der Gliederung und Transparenz 
von Programmen. 

POP 

POP gilt für Unterprogramme mit GOSUB und EXEC 
ebenso wie für die Schleifen »FOR ... NEXT«, »REPEAT ... 
UNTIL«, »WHILE ... ENDWHILE« und »LOOP ... ENDLOOP«. 
Auf dem Runtimestack belegen GOSUB, EXEC, REPEAT, 
WHILE und LOOP jeweils 4 Byte (wie GOSUB in Atari-Basic). 
»FOR ... NEXT« belegt jedoch 13 statt 12 Byte, dajetzt 256 
verschiedene Variablen zur Verfügung stehen. Auf dem 
Stack werden jetzt aber nicht mehr die Zeilennummern 
gespeichert, ein Grund für das langsame Atari-Basic, son- 
dern die Speicheradressen dieser Zeilen. Dadurch werden 
Schleifen schneller. Außerdem sinkt die Geschwindigkeit 
der Schleifenwiederholung nicht mit steigender Entfernung 
vom Programmanfang! Trotzdem konnte einer der Vorzüge 
von Atari-Basic beibehalten werden: Ein Programm, das bei- 
spielsweise durch einen Programmfehler angehalten wurde, 
kann man editieren und dann mit CONT oder GOTO fortset- 
zen. Dabei werden weder die Variablen noch der Stack 
gelöscht. So lassen sich auch Programme schreiben, die 
ihre DATA-Zeilen selbst generieren oder nicht mehr benö- 
tigte Programmteile löschen (mit POKE 842,13, danach ver- 
hält sich der Computer so, als würde ständig RETURN 
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m TE He 


gedrückt, bis POKE 842,12 den Normalzustand wieder her- 
stellt). Zum Löschen von Programmteilen gibt es in Turbo- 
Basic XL den DEL-Befehl. 

Dies ist eine spezielle REM-Anweisung. Bei der Eingabe 
einer Programmzeile wird alles nach »- -« nicht beachtet. Bei 
LIST werden aber nicht zwei, sondern 30 Minuszeichen 
gedruckt. Diese Anweisung belegt sogar ein Byte weniger 
Speicherplatz als ein REM ohne Text. Eine entsprechende 
REM-Zeile im normalen Basic benötigt wesentlich mehr Spei- 
cherplatz. 

LIST 

Beim LISTen von Programmen werden Schleifen optisch 
durch Einrücken um jeweils zwei Leerzeichen hervorgeho- 
ben. Programme sind so übersichtlicher und strukturierter. 
Außerdem lassen sich auf diese Art und Weise manche Feh- 
ler vermeiden. Bei unsauberer Programmierung (mehrere 
NEXT zu einem FOR, mehrere ENDPROCs zu einem 
PROC...) gerät das Listing, ebenso wie der Interpreter, aller- 
dings in Unordnung. Solche Konstruktionen, die in Atari- 
Basic und vielen anderen Basic-Versionen nur schwer zu 
umschreiben sind, können in Turbo-Basic XLleicht durch IF- 
ELSE-ENDIF oder EXIT ersetzt werden. Daraus resultieren 
wieder leichter lesbare Programme. 

*L- 

schaltet die Tabulierung ab. Dies kann notwendig sein, um 
lange.Programmzeilen zu editieren oder um Platz beim Spei- 
chern auf Diskette (LIST"D:X”) zusparen. Die Trennzeile »- -« 
wird nach »%*L -« nur als doppeltes, statt dreißigfaches 
Minus-Zeichen gelistet. 

*L 

*L+ 

schaltet die Tabulierung wieder ein (Normalzustand nach 
dem Laden des Interpreters). Übrigens gibt es jetzt auch ein 
LIST von einer Programmzeile bis zum Programmende. »LIST 
3000,« listet ab Zeile 3000 bis zum Programmende, »LIST 
"P:",3000,« entsprechend auf den Drucker (das einzelne 
Komma »,« nach der Zeilennummer veranlaßt den Computer, 
automatisch 32767 für die höchstmögliche Zeilennummer 
zu ergänzen). 


Neue Fehlermeldungen 


Es gibt folgende neue Fehlermeldungen: 
ERROR - 22 ?NEST 

Schachtelungsfehler, tritt auf, wenn das zu einem WHILE 
gehörende ENDWHILE nicht gefunden wird, oder das ENDIF 
zu einem IF, oder auch, nach »*F +«, das NEXT zu einem 
FOR. Beim Verlassen von Unterprogrammen (durch 
RETURN oder ENDPROC) werden Schleifen abgebrochen. 
Dies gilt sowohl - wie gewohnt - für die »FOR ... NEXTe- 
Schleife, wie auch für die anderen, unter Turbo-Basic XL zur 
Verfügung stehenden Schleifen. 
ERROR - 16 ?GOSUB 

Zu einem GOSUB fehlt RETURN. 
ERROR - 13 ?FOR 

Zu einem NEXT fehlt FOR. 
ERROR - 23 ?WHILE 

Zu einem WEND fehlt WHILE. 
ERROR - 24 ?REPEAT 

Zu einem UNTIL fehlt REPEAT. 
ERROR - 25 ?DO 

Zu einem LOOP fehlt DO. 
ERROR - 28 ?EXEC 

Zu einem ENDPROC fehlt EXEC. 
ERROR - 29 ?PROC 

Eine unbekannte Prozedur wurde aufgerufen. 
ERROR - 30 ?# 

Eine unbekannte Marke wurde verwendet. 


ERROR - 27 XPROC 

(Executing PROC). Diese Fehlermeldung tritt auf, wenn 
eine PROC-Anweisung ausgeführt wird. Prozeduren dürfen 
nur von EXEC aufgerufen werden. 
ERROR - 26 ?EXIT 

EXIT ohne Schleife. 
ERROR - 15 ?DEL 

Das GOSUB zu einem RETURN, NEXT zu einem FOR, 
REPEAT zu einem UNTIL ... wurde gelöscht. In Atari- und in 
Turbo-Basic XL lassen sich Programme editieren, ohne Varia- 
blenwerte oder den Stapel zu zerstören. Wenn dann bei 
Rückkehr aus einem Unterprogramm (Schleife) die entspre- 
chende Zeile gelöscht oder verändert wurde, kann dieser 
Fehler passieren. Dies tritt auch auf, wenn ein in ein Pro- 
gramm eingebautes DEL sich selbst löscht. Alle Fehlernum- 
mern, die Atari-Basic ohne irgendwelche Texte ausgibt, wer- 
den in Turbo-Basic XL grundsätzlich mit einem kurzen Text 
ergänzt (beispielsweise »138 TIMEOUT«, »29 ?PROC« etc.). 
Ausführlichere Erläuterungen können dem Atari-Basic Refe- 
renz Manual oder der DOS-Anleitung entnommen werden. 
Längere Texte würden, bei den insgesamt 60 zur Verfügung 
stehenden Fehlern, den Platzbedarf des Interpreters noch 
wesentlich erhöhen. 
DEL von,bis 

Löscht die Programmzeilen von-bis (jeweils einschließlich). 
RENUM alt,neu,incr 

Numeriert alle Programmzeilen ab Zeile alt um. Die neuen 
Zeilennummern beginnen bei neu und werden jeweils um incr. 
erhöht. Alle Zeilennummern vor alt bleiben unverändert. Die- 
ser Befehl ändert auch die Zeilennummern nach GOTO, 
GOSUB, TRAP, RESTORE, LIST, DEL, ON-GOTO und ON- 
GOSUB. Bei Verwendung undefinierter Zeilennummern wird 
die entsprechende negative Zahl eingesetzt (beispielsweise 
GOTO-100). Bei berechneten Sprüngen (GOTO VAR, 
GOSUB 100+10%A, RESTORE A%10+1000) versagt 
RENUM. Wenn hinter dem Befehl eine Zahl folgt »GOTO 
1000+A % 10«, wird die Zahl wie bei einem normalen Befehl 
»GOTO 1000« behandelt. Der nachfolgende Programmteil 
der Zeile bleibt jedoch unverändert. Wenn keine Zahl, son- 
dern ein Variablenname oder eine Klammer folgt, wird der 
Befehl überhaupt nicht verändert. 
DUMP 
DUMP filespec 

Dieser Befehl erzeugt eine Liste der verwendeten Varia- 
blen. Wie bei LIST kann die Ausgabe auch auf einem Drucker 
erfolgen (DUMP "P:"). 


Ein Beispiel: 

A= 100 numerische Variable 

B( 10,1 Array, DIM B(9) oder DIM B(9,0) 

c(0,0 undimensioniertes Array. Bei Arrays werden 
die beiden möglichen Dimensionen stets um 
eins erhöht angezeigt. 

D( 10,10 DIM D(9,9) 

E$ 10,20 String, LEN=10, DIM E$(20) 

F$ 0,0 nicht dimensionierter String 

G$ 0,10 DIM G$(10), LEN(G$)=0 

H PROC 100 PROC H in Zeile 100 

I # 120 Marke I in Zeile 120 

J? Undefinierte Marke oder PROC 


Die Ausgabe der Variablen/Marken erfolgt in der Reihen- 
folge, wie sie in der Variablentabelle gespeichert sind. 
TRACE 
TRACE + 

Schaltet den TRACE-Modus ein. Das heißt, die Nummer 
jeder ausgeführten Zeile wird in eckigen Klammern auf dem 
Bildschirm ausgedruckt. 

TRACE - 

Hebt TRACE wieder auf. Der TRACE-Modus wird außer- 

dem aufgehoben, sobald eine Fehlermeldung auftritt. Die Zei- 
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lennummern eines PROC oder # werden bei Aufruf mit 
EXEC oder GO # nicht ausgegeben. 
*B 
*“B + 

Nach diesem Befehl wird das Drücken der BREAK-Taste 
wie jeder andere Fehler behandelt. Eine Programmunterbre- 
chung läßt sich mit TRAP abfangen und so vor einer verse- 
hentlichen Unterbrechung schützen. 
*B- 

Hebt den oben erwähnten Modus wieder auf. BeiRUN wird 
»%B -« automatisch ausgeführt. 


Befehle 


Erläuterung: 
<=> steht für: entspricht im normalen Basic 
DPOKE adr,word 

Doppel-Byte-POKE <=> POKE adr,word-256 # INT(wort/ 
256):POKE adr+1,INT(wort/256) 
MOVE source,dest,count 

Blocktransfer <=> FOR I=0 TO COUNT-1:POKE dest+ 
PEEK(source+1):NEXT I 

Mit »MOVE 57344,NEUCHARSET,1024« läßt sich bei- 
spielsweise der Zeichensatz kopieren. 
"MOVE source.dest,count 

Blocktransfer, zuerst wird das letzte Byte verschoben. 
Dies ermöglicht, einen Speicherbereich zu einer höheren 
Adresse zu verschieben, ohne daß es bei Überlappungen 
(wenn source+count>dest) zu Zerstörungen kommt. 
<=> FOR I=COUNT TO 0 STEP -1:POKE dest+1,PEEK 
(source+1):NEXT I. MOVE kann auch benutzt werden, um 
einen Speicherbereich zu füllen. Beispiel: »POKE 
DPEEK(88),128: MOVE DPEEK(88),DPEEK(88)+1,959. 
Dies schreibt den Textbildschirm mit dem Bildschirmcode für 
das inverse Leerzeichen voll. Obwohl hier viele, eigentlich 
unnötige Ladevorgänge stattfinden, ist dies viel schneller als 
eine Basic-Schleife. 
BPUT #n,adr,len 

Blockschreiben <=> FOR I=0 TO len-1:PUT #n,PEEK 
(adr+1):NEXT I 
BGET #n,adr,len 

Blocklesen <=> FOR I=0 TO len-1:GET #n,A:-POKE 
adr+1,A:NEXT | 

Mit diesen Befehlen kann man Speicherbereiche mit maxi- 
maler Geschwindigkeit speichern und laden. Beispiel: 
OPEN #1,8,0,'’D:BILD.PIC”:BPUT #1,DPEEK(88),7680: 
CLOSE #1 
OPEN #1,4,0,'D:BILD.PIC”:BGET #1,DPEEK(88),7680: 
CLOSE #1 

Speichern oder Laden eines Grafik-8-(oder 9,10,11,15)- 
Bildes auf Diskette. Achtung: Die Zahl 7680 muß je nach Gra- 
fikmodus geändert werden (sonst werden nicht mehr zum 
Bildspeicher gehörende Speicherbereiche mitgelesen oder 
-geschrieben) 
%PUT 

Mit diesem Befehl lassen sich Zahlen schneller und kom- 
pakter auf Diskette oder in einer RAM-Disk speichern. Dabei 
werden immer sechs Byte gepeichert. 
%GET 

Zum Lesen von Zahlen, die mit %PUT auf ein Speicherme- 
dium gespeichert wurden. Ein Beispiel für die Anwendung 
von %PUT und %GET finden Sie auf Seite 70. 
FILLTO x,y 


Kurzschreibweise, schneller und übersichtlicher als: 


»POSITION x,y:XIO 18, #6,0,0,'S:"FCOLOR n« 

Wählen der Farbe für FILLTO. In Standard-Basic heißt die- 
ser Befehl »POKE 765,n«. 
CLS 


CLS #6 

Bildschirmlöschen. CLS <=> A=PEEK(766):POKE 
766,0:POSITION 0,0:? (#6;)CHR$(125);:POKE 766,A 
PUTn 

<=> ?CHR$;(n); beispielsweise »PUT 253« für »? CHR$ 
(253);«. Bei PUT, GET, INPUT... ist auich die Angabe »#0« 
möglich. Die Benutzung von »IOCB O« (mit »CLOSE« oder 
»OPEN #0«) verhindert allerdings das ordnungsgemäße 
Arbeiten des Bildschirm-Editors, gegebenenfalls SYSTEM- 
RESET drücken. Fehlt bei PUT die #-Angabe, so wird auto- 
matisch »IOCB #0« benutzt. 

GET KEY 

<=> OPEN #7,4,0,’K:":GET #7,KEY:CLOSE #7. War- 
tet auf Tastendruck, und weist der Variablen KEY den 
ATASCII-Wert der gedrückten Taste zu (der Variablenname ist 
frei wählbar). 

DIM 

Beim DIM-Befehl werden Arrays und Strings automatisch 
gelöscht, also auf Null gesetzt. DIM A(100) <=> DIM 
A(100):FOR I=0 TO 100:A(l)=0:NEXT I 
INPUT "text" var,var... 

INPUT "text”;var,var... 

INPUT ähnelt jetzt sehr stark dem entsprechenden INPUT- 
Befehl unter Microsoft-Basic. Ein Textnach INPUT erspart die 
sonst nötigen PRINT-Befehle. Folgt nach dem Text ein Semi- 
kolon statt eines Kommas, so wird zusätzlich ein ? ausgege- 
ben. Mit »INPUT "";A« erreicht man ein Inputohne das manch- 
mal störende »?«. 

TEXT x,y,sexp 
TEXT x,yexp 

Schreibt einen Text in ein Grafik-Bild. »x,y« stellt die Position 
der oberen linken Ecke des ersten Zeichens des String- 
Ausdrucks (wird in Bildpunkten gezählt) dar. Beispiel: »GRA- 
PHICS 8TTEXT 50,90,’Turbo-Basic”TEXT 70,95,1000«. Im 
Gegensatz zum normalen PRINT-Befehl darf nach TEXT nur 
ein Ausdruck erfolgen (keine Liste mit Komma oder Semiko- 
lon). Außerdem werden Texte am Zeilenende abgebrochen, 
es gibt auch kein Scrolling. 

CIRCLE xO,yO,r 
CIRCLE xO,yO,xr,yr 

Zeichnet einen Kreis um den Punkt xO,yO mit dem Radius 
r. Bei Angabe zweier (unterschiedlicher) Radien für diex- und 
y-Richtung entstehen Ellipsen. 

PAINT x,y 

Füllt eine geschlossene Figur, beispielsweise einen Kreis, 
mit der mit COLOR gewählten Farbe. Dieser Befehl kann fast 
jede beliebige Figur mit einer bestimmten Farbe füllen. Da 
hierbei eine für den 6502 angepaßte, rekursive Funktion 
benutzt wird, ist der Komplexität der auszufüllenden Figur 
durch den freien Speicherplatz eine Grenze gesetzt. Im 
Extremfall würde ein Arbeitsbereich von etwa 90 KByte RAM 
benötigt. Auch einfache und kleinere Figuren belegen vor- 
übergehend einige hundert Byte. Sollte der Speicher über- 
laufen (FRE(0) zu klein), so gibt es die Fehlermeldung 
»ERROR - 2 MEM«. Die PAINT- und die TEXT-Routine benut- 
zen eigene, schnelle Plot-Routinen, da hierbei viele neben- 
einander liegende Punkte relativ einfach berechnet werden 
können. Hiervon machen die Routinen im Atari- 
Betriebssystem leider keinen Gebrauch. 

TIME$= siehe unten 
PAUSE n 

Unterbricht die Programmausführung für n/50-Sekunden. 
PAUSE ersetzt das ungenaue und speicherplatzfressende 
Timing mit leeren FOR-NEXT-Schleifen. In Atari-Basic wird oft 
die Potenzierung (A=1"1) für eine kleine Verzögerung 
benutzt. Da Turbo-Basic XL bei der Potenzierung besonders 
schnell ist, sollte dafür beispielsweise »PAUSE 9« benutzt 
werden. 


37 


TURBO-BASIC 


DSOUND voice,freq,dis,vol 

Ähnlich dem normalen SOUND-Befehl. Der Atari- 
Computer kann zwei normale Stimmen zu einer zusammen- 
fassen. Die Frequenzauflösung beträgt dann 16 Bit 
(0..65535) statt 8 Bit (0..255). Die resultierende Frequenz 
berechnet sich (in Hertz) zu: 1789790/(2 «freg+14) statt 
sonst 63921/(2 #freq+2). Diese Werte stammen aus einer 
amerikanischen Veröffentlichung und unterscheiden sich 
eventuell etwas von den Werten bei den deutschen Atari- 
Versionen, da sie von der Videofrequenz abgeleitet sind, die 
in den USA einen anderen Wert besitzt (NTSC-System in den 
USA statt der europäischen PAL-Norm). 
SOUND 
DSOUND 

Kurzform für: FOR I=0 TO 3:SOUND 1,0,0,0:NEXT I 
CLOSE 

Kurzform für: FOR I=1 TO 7:CLOSE #I:NEXT I 


Funktionen 
DPEEK(adr) 
Doppel-Byte-PEEK <=> PEEK(adr)+256 PEEK 
(adr+1) 
INKEY$ 


Spezialvariable. Wenn eine Taste gedrückt wird, enthält 
INKEY$ das entsprechende Zeichen. Wenn nicht, enthältsie 
einen Leerstring (""). So läßt sich ein Tastendruck 
verarbeiten, ohne den Programmablauf zu unterbrechen. 
INSTR(A$,B$) 

INSTR(AS,B$,i) 

Sucht einen String B$ in einem (längeren) String A$. Wenn 
gefunden, wird die Position von B$ in A$ zurückgeliefert, 
sonst eine Null. »i« stellt den Index (Position) dar, ab dem die 
Suche beginnen soll. 

UINSTR(A$,B$) 
UINSTR(A$,B$,i) 

Ähnlich INSTR. Die Bits 7 und 5 der einzelnen Zeichen 
werden nicht beachtet. Bei der Suche nach »MODEM läßt 
sich so auch »Modem«, »MoDeM« oder der entsprechende 
inverse Text finden (UINSTR steht für UppercaselNSTR). Als 
Nebeneffekt werden bei der Suche nach Zahlen oder 
Satzzeichen auch die Spezial-Zeichen gefunden ("!”=CTRL- 
A/O"=CTRL-P etc.). 

ERR 

Kurzform für »PEEK(195)« zur Ermittlung des Fehlercodes. 
ERL 

Kurzform für »PEEK(186)+256%PEEK(187)« oder 
»DPEEK (186)« zur Ermittlung der Zeile, in der ein Fehler 
aufgetreten ist. ERR und ERL sollten in TRAP-Routinen 
verwendet werden. 

TIME 

Spezialvariable, enthält die Zeit (vom internen Timer 
RTCLOCK des Atari-Computers, ausschlaggebend sind die 
Speicherzellen 18 bis 20) in 1/50-Sekunden. 

TIME$ 

Spezialvariable, enthält die Zeit als sechsstelligen String im 
Format hhmmss (hh=Stunde 00 bis 23, mm=Minute 00 bis 
59, ss=Sekunde 00 bis 59). 

TIME$= 

Zum Stellen der Uhr. sTIME$="151520”« stellt die Uhr auf 
15 Uhr, 15 Minuten und 20 Sekunden. Die Variable TIME läßt 
sich nicht direkt verändern. Statt dessen wird entweder 
sTIME$=« verwendet oder durch entsprechendes POKEn in 
die Speicherstellen 18 bis 20. Die Uhr gehtnicht ganz genau, 
da die Frequenz, mit der im Atari die Fernsehbilder erzeugt 
werden, nicht genau 50 Hz beträgt. TIME$ wird von dieser 
Frequenz abgeleitet. 

FRAC(exp) 
Diese Funktion ermittelt den Nachkommaanteil einer Zahl. 
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»FRAC(exp)« ist nicht immer gleich »exp-INT(exp)«, da INT 
die nächstkleinere Zahl ermittelt. So ergibt »? INT(-0.3)« -1, »? 
FRAC(-0.3)« ergibt -0.3. 

TRUNC(exp) 

Diese Funktion ermittelt den ganzzahligen Anteil einer 
Zahl. Dies ist die zu FRAC komplementäre Funktion. »? 
TRUNC(-0.3)« ergibt O. 

RND 

RND (irgendwas) kann in Turbo-Basic XL abgekürzt 
werden, indem man die Klammern wegläßt. Es wird also RND 
statt RND(0) verwendet (speicherplatzsparend). 

RAND(n) 

Dies ist die Kurzschreibweise für sTRUNC(RND(0) #n)« 
und erzeugt eine ganze Zufallszahl zwischen einschließlich O 
und (ausschließlich) n. 

HEX$(exp) 

Ähnlich STR$. HEX$ wandelt die Integerzahl exp 
(0<=exp<=65535) in einen sedezimalen (hexadezima- 
len) String um. Wenn exp kleiner als 256 ist, ergibt dies einen 
zweistelligen String, sonst einen vierstelligen. 

DEC(sexp) 

Ähnlich VAL, Umkehrung zu HEX$. Der String sexp wird in 
eine dezimale Integerzahl gewandelt. Wenn sexp mehr als 
vier gültige sedezimale Ziffern enthält, so gelten nur die letz- 
ten vier. 
$aaaa 

Sedezimalzahl im Programm. Beispiel: 

FOR I=$0600 TO $067F:READ A:POKE I,A:NEXT | 
statt: 

FOR I=1536 TO 1663:READ A:POKE I,A:NEXT | 

& Binäres AND 

! Binäres OR 

EXOR Binäres exclusiv OR 

Diese drei Operatoren arbeiten mit 16-Bit-Integern. Also 
mit Zahlen zwischen O und 65535 und nicht mit Boolschen 
Größen (1 oder O) wie die Operatoren AND, OR und NOT. 
DIV 

Division ohne Rest: aDIVb <=> TRUNC(a/b) 

oD 


Bestimmung. des Divisionsrestes (Modulo): a MOD b 
<=> a-b*TRUNC(a/b) 
%0 %1 %2 %3 

Die Zahlen O bis 3 sind als Konstanten definiert. Die Ver- 
wendung einer Zahl (auch $aaaa) im Programm kostet jedes- 
mal 7 Byte, die Verwendung einer Variablen, unabhängig von 
der Länge des Namens, jedoch nur 1 oder 2 Byte. Auch die 
Verwendung von %0 bis %3 belegt ebenfalls jeweils 1 Byte, 
aber keinen Eintrag in der auf 256 Variablen begrenzten, 
Variablentabelle. 


In Strings, oder in zwischen Anführungszeichen stehen- 
dem Text, ist es jetzt möglich, »”« (entspricht CHR$(34)) 
durch doppelte Anführungszeichen ("") einzufügen. Beispiel: 
»?’TEST" "TEXT”« erzeugt den Ausdruck: sTEST"TEXT«. In 
Atari-Basic muß man dafür schreiben: »? "TEST";CHR$(34); 
"TEXT”«. Bei Zuweisungen (A$="TEST”TEXT") ist das (in 
Atari-Basic) noch etwas umständlicher. 

Turbo-Basic XL wandelt bei der Eingabe von Programmzei- 
len automatisch kleine in große und inverse in normale Buch- 
staben um. Dies gilt natürlich nicht zwischen Anführungszei- 
chen (”) sowie nach REM oder DATA-Befehlen. Somit lassen 
sich Programme auch mit Kleinbuchstaben eingeben, ohne 
ständig zwischen Groß- und Kleinbuchstaben (mit der CAPS- 
Taste) hin- und herzuschalten, oder ständig SHIFT drücken 
zu müssen. 

In Variablen- und Prozedurnamen ist außer den Buchsta- 
ben und Ziffern auch das Unterstreichungszeichen »_« 
(SHIFT -) zugelassen. So sind endlich Namen wie 
MAX__LEN oder PROC SORT_KUNDEN erlaubt. 


Diskettenbefehle 


DIR 
DIR "’D1:%.%” 

Ausgabe des Inhaltsverzeichnisses einer Diskette auf dem 
Bildschirm. »DIR"D1:%.%”« listet alle Files von Diskette 1; 
»D2:Ax.*« alle Files von Diskette 2, deren Name mit A 
beginnt. »D1:%.%« kann entfallen, dann wird automatisch 
»D:%.%« eingesetzt (ähnlich wie im DOS-Menü mit »A 
RETURN RETURN). Bei diesem Befehl sind Stringvariablen, 
wie auch bei den folgenden Befehlen, zulässig. 

RENAME "D:OLD,NEW” 

Benennt das File OLD in NEW um. Entspricht: »XIO 
32, #7,0,0’D2:OLD,NEW"« oder der DOS-Menü Auswahl E. 
DELETE "D:FILE” 

Löscht ein File (entspricht »XlO 33« oder der DOS-Menü 
Auswahl D) 

LOCK ”D:FILE” R 

Schützt ein File gegen Überschreiben (entspricht »XlO 35« 
oder der DOS-Menü Auswahl F) 

UNLOCK ”D:FILE” 

Hebt den Schreibschutz wieder auf (entspricht »XIO 36« 
oder der DOS-Menü Auswahl G). 

BLOAD "D:FILE.OBJ” 

Lädt ein binäres File (entspricht der DOS-Menü Auswahl L 
mit »/N« nach dem Filenamen) 
BRUN "D:FILE.OBJ” 

Lädt ein binäres File und startet es, wenn eine RUN- 
Adresse im File enthalten ist (entspricht der DOS-Menü Aus- 
wahl L, ohne angehängtes »/N«) 

Damit sind die zusätzlichen Befehle und Funktionen von 
Turbo-Basic XL erklärt. Selbstverständlich stehen darüber 
hinaus noch alle anderen Befehle, die man vom normalen 
Basic her kennt, zur Verfügung. Mit Turbo-Basic XL wird die 
Programmierung auf dem Atari 800XL/130XE zur wahren 


Freude. Befehle, die man sich schon lange gewünscht hat, 
stehen jetzt endlich zur Verfügung. 
Autostart 

Mit Turbo-Basic XL ist es möglich, nach dem Einschalten 
des Computers ein Basic-Programm automatisch zu laden 
und zu starten. Dazu benennen Sie Ihr Basic-Programm ein- 
fach in AUTORUN.BAS um. Vergessen Sienicht: Das eigentli- 
che Turbo-Basic muß dann mit dem Namen AUTORUN.SYS 
auf Diskette vorliegen. (Frank Ostrowski/wb) 
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Turbo-Basic XL-Programme gesucht 


Sicher werden Sie, so wie die Redaktion, sehr schnell von 
den Vorzügen von Turbo-Basic XL überzeugt sein. Des- 
halb an dieser Stelle ein. Aufruf an alle Atari-Besitzer: 
Schreiben Sie doch Ihre Programme zukünftig in Turbo- 
Basic XL, und schicken Sie diese an die Redaktion. 
Schließlich wollen wir Ihnen nicht nur den Interpreter bie- 
ten, sondern Sie auch zukünftig mit Programmen in Turbo- 
Basic XL versorgen, die die größeren Fähigkeiten dieser 
Sprache voll ausnutzen. 

Gefragt sind alle Arten Programme, Spiele, Anwendun- 
gen und Tips und Tricks. Versuchen Sie aber bitte, die Pro- 
gramme möglichst kurz zu halten. Ein Listing mit ein bis 
zwei Seiten Länge hat bessere Chancen, in Happy-Com- 
puter veröffentlicht zu werden, als längere (dies gilt übri- 
gens auch für Programme in normalem Atari-Basic), 

Schicken Sie Ihre Turbo-Basic XL und Atari-Basic-Pro- 
gramme an: 

Redaktion Happy-Computer 
2.Hd. Werner Breuer 
Hans-Pinsel-Straße 2 

8013 Haar 
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GOOD: FF FF 


E7 02 EB 02 29 36<B8> @140:8D @1 DS 28 
aaası 00 SE 87 SE @@ 18 18 FF<ES> @148:8D @1 DS AS 
@010:3C SC 66 42 00 00 QM Q&cıa> @150:E7 82 8c Es 
AW1B:66 7E 76 66 OB 08 18 SC<7C> @158:08 22 C9 22 
0020: 66 7E 66 66 @@ SE 73 33<28> Q160:0B CB 28 C2 
028: 3E 35@ 3@ 78 00 7C 37 33<64> @168:0@ E4 70 FS 
QUSQ:3E 30 SB 78 00 OO &M &S<Ec> @170:9D FF 9D FF 
@038:36 SC 39 63 a0 DI BI Qr<Da> @17B:11 25 EB FS 
@040:03 03 F& E4 Q® 80 B@ F@<7c> @180:5B FS 57 DC 
0048:C0 CO 60 20 m® DI 03 Q&x16> @188:65 Es CC C3 
G050:06 26 03 Q1 00 Ei 33 Q&c35> @198:BC C4 18 Ca 
QASB:06 06 35 Ei O0 C7 63 33<46> @198:04 F& 44 25 
0060: 56 36 66 CE BD BE 9C 9C<7F> @1A0:75 CA 62 Ca 
@O6B:F& 66 66 67 00 7E 33 33<A3> B1AG: BO FS DS F7 
@070:3E 3@ 30 78 00 67 && 66<58> @1B0:54 C4 53 C2 
0878:66 66 66 SC 0@ FF 31 S1<As> @1BS:FE 24 39 C2 
@@80:31 31 51 7B @@ FB 81 Bical> @1C@:D9 Cı 97 DD 
@aaa:Fı Bi Bi FB @B FB BC ac<ca> @1C8:00 E4 Da Fa 
@090:F8 B@ 98 CC 0@ 21 93 21<33> B1D@:0A DB FF F& 
0098: A2 00 BD QD EB 9D aQ SC<52> @1D8:84 F7 89 F7 
@DAB:ED 00 Ei 9D QG SD ED a@csa> @1EB:DA CS DD cs 
QOAB:ES 9D 98 SF EB DO EB A9<Sa> G1EB:BB FB 52 Fa 
GOBB: 10 ED C& @2 A9 SC BD C5ca9> Q1F@:C9 CS C3 c5 
QOBB:02 BD FÜ @2 BD Fa @2 AacEa> @1F8:74 FB B3 F& 
Q0CQ:45 BD 44 95 A9 21 BD 45<67> @200:2E C2 92 F3 

A911) @208:00 ca 49 co 
56<93> @210:74 35 77 35 
7FL35> @218:9B FS D@ FD 
@S<61> @220:8@ DE 18 C& 
aR<sı> 0228: 15 23 EA 2@ 
FB<BA> @230:E5 44 sa 2a 
52<50> @238:3A 9B 43 3A 
43<D9> 0240:24 23 2E 25 
FB<a1> @248:FC 09 02 8D 
II<6A> @258:23 28 36 45 
6B<aB> @258:D8 55 Da Sc 
73<2A> @260:DE 26 DS 14 
@2<16> @268:D& 95 D8 84 
Ba<c3> @270:24 89 C& 4C 
@13B:AQ 20 85 GC 84 OD A9 FF<ac> @278:D8 4E D8 65 


38 DB A2<44> 


@0 08 A? FE<74> 
8@ As Bi BD<90> 89 C6 90<76> 
02 AC SD E6<36> 63 DA S%<FE> 
AS 24 AS 24<4D> 72 D9 DE<AC> 
1D Fi B4 C2<93> 89 09 43<78> 
BF FS BB F4<95> 7@ DB SE<49> 
9A FF FC FS<D9> CD DB Ba<SE> 
AB Ca aa C5<9@> E2 D9 E6<68> 
AB CB 6A FFC» 69 DC 77<65> 
Ei C2 43 C3<c4> 85 DC 2A<B3> 
2F C4 CB CxAs> Ci DA FC<aD> I 
F2 DC 5A DC<66> AS 24 B6CBF> \ 
18 FB 32 FS<B2> FE DB AC<B9> 
F2 DC 67 CA<SB> AS 24 BS<CE> 
74 C2 1B C%F7> a2 00 ma<as> 
AE CI 95 Cacas> 20 aa a@<Fc> 
BA CS 92 C3<49> 20 20 20<ED> 
32 25 00 D8<94> 1E 1A 10<9E> 
1E FA 9B F7<FA> 3@ 30 S@<6A> 
SD FS 9A Fxa9> 32 32 32<9B> 
35 C2 1E FA<E9> 32 32 3258> 
AB CS C& C57A> 32 32 32<2D> 
CC 65 A2 DE<cr> 32 32 32<15> 
82 FO 64 F&xFC> 32 32 2A<75> 
AZ 24 E4 33<AD> 32 28 O@<BE> 
58 FF 37 FC<49> 32 32 aa<ıa> 
AF FB AS 24<7C> a0 00 aa<22> 
SF FF D9 C1<59> 20 00 aX<SE> 
1B C6 88 23<52> 20 2C 28<64> 
24 23 4C 2B<2C> IC 02 3@13> 
ZE 2A 9B 53<33> 30 30 3@<B2> 
FB 5a SA 9B<31> @2 02 @S<3F> 
AD @1 DS 29<2F> 02 02 @2<86> 
@1 DS 69 SA<Es> 02 @2 @2<BE> 
DB 4E DB 65£17> @2 02 02<96> 
DS &C DB Br<aD> 2A 02 @2<C7> 
DE 1D DB 2F<A9> a0 32 82<2a> 
De 73 DB As<Da> @SAB:®2 32 32 32 32 @@ @2 32<4D> 
C6 IC C8 4559> @SB®:32 EE @1 DS 20 56 E4 CE<88> 
DS 55 DB SC<eD> @3B8:01 DS C@ 0® 6D &B AA CE<AF> 


Listing »Turbo-Basic XL«. Bitte unbedingt mit dem Eingabe-Programm AMPEL von Seite 87 eintippen 
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10<82> DIEF> @FAG:CA 22 85 ES 264 DA CB ca<ı3> 

AFS2F> ASCS1> @9A8:08 DB FE AC B4 2D 36 DS<BE> 

BSQ6> 86C0:D7 D&<SB> @9B0:C8 CO 08 DA F7 FO FA FE<FC> 

AB<Cr> @6C8:79 CA 22 85 D6 88 10 CE<DS> ESCBS> 
QSEQ:EE 22<03> @6D0:30 05 FO 03 88 10 C7 AR<QE> 22<FE> 
@3E8:02 48 A9 24 48 A9 A6 AB<BS> @6D8:07 46 Ei 98 3@ 18 AS Da<ic> BD<AD> 
@SF0:08 EE Q1 DS 6C 16 92 EE<TI> 06E0:79 F2 22 85 DA AS D9 79<C02> @IDG:E9 22 65 ES OD EB 22 ASar> 
@SF8:01 DS 20 EB 24 CE @1 DXE4> G6EB:EA 22 85 D9 AS DB 79 E2<F@> @9DB:E2 8D Ei 22 65 EZ BD ER<23> 
0400: 60 BD 47 03 48 BD 46 Q3<43> Q6F@:22 85 DB AS D7 79 DA 22<n2> @9E0:22 AS Ei 8D D9 22 65 EI<cC> 
06:48 98 AB SC 60 EE Q1 D3<53> @6F8:85 D7 AS D& 79 D2 22 85<91> @9EB:ED DB 22 AF am aD DI 22<3C> 
0410:20 00 O0 CE G1 DS 6D 20<39> @70 D5<99> A9FB:69 OB BD DA 22 A2 92 BD<9D> 
@418:34 20<C7> BB<a1> QIFB:F6 22 7D F& 22 9D FS 22<20> 

60<73> BB<AF > GARG: BD EE 22 7D EE 22 9D ED<AA> 

DS<2F> FO<BA> QAQB:22 BD E& 22 7D E& 22 9D<An> 
0430: AU B1<sa> ASCAA> @AIG:ES 22 BD DE 22 7D DE 22<79> 
@438:D3 AB @1 Bi D4 AA 88 BI<D4> 29<04> @A18:9D DD 22 BD D& 22 7D D&<48> 
0440:D4 CE ®1 DS 85 D4 86 D5<SO> 30<79> @A20:22 9D DS 22 BD CE 22 7D<4F> 
9448: 4C 7D D9 2@ OC ES EE Q1<83> BScar> @A2B:CE 22 9D CD 22 CA DO C7<CB> 
@450:D3 AB Q@ 91 9B AS DS CB<Da> B5<90> @ASQ:AD FA 22 6D F6 22 BD FS<E9> 
0458:DD @B 4C 28 ES 20 OC ES<BB> @748:EA 85 EO 85 DA 84 DA AB<1D> @A38:22 AD FO 22 6D EE 22 AD<9F> 
@460:D@ FB EE BI DS 91 9B AD<D7> 0750:00 AS E@ D9 CA 22 DB 28<B7> @AAG:ED 22 AD EB 22 6D E& 22<15> 
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@480: BO 85 C& 20 16 ES C& 06472> @770:EA 22 DB OC AS ES D9 F2<13> @A6B:6D CE 22 BD CD 22 A2 @2<S1> 
0488:30 09 AS D4 48 AS DS 48<As> @778:22 DO 05 A2 am AC 95 2A<ca> @A6B:BD FS 22 7D F3 22 9D F2<EE> 
@490:4C 6A 25 EE Q1 DS AS BO<ED> 0780:90 2A AS ES F9 F2 22 BSCHF> @A70:22 BD EB 22 7D EB 22 9D<B7> 
0498: 48 6C D4 00 AC 7B F& A9<SF> @788:E5 AS E4 FF EA 22 85 E4<45> @A7B:EA 22 BD ES 22 7D ES 22<06> 
GAAd: 00 84 Aa 85 AS 18 AS 9O<CS> 8790: A5 ES F9 E2 22 85 ES AXF1> QAB0:9D EZ 22 BD DB 22 7D DE<OF> 
@AAB:65 AA AB AS 91 65 AS CD<CB> @798:E2 F9 DA 22 85 E2 AS Ei<11> @ABB: 22 9D DA 22 BD DS 22 7D<28> 
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@AC0:F5 00 85 A2 AS 91 FS 01<70> @7B0:08 D@ 9E AB a0 AS Ei D9<DS> @AAB:C7 AS DS 85 Ei AS D& B5CQE> 
04C8:85 AS 18 BS 00 85 97 aS<ıa> @7B8:CA 22 D® 28 AS E2 D9 D2<D9> BAAB:EZ AS D7 85 ES AS DB BS<EC> 
0408:99 65 A4 85 9B BS @1 85<7D> 07C0:22 D® 21 AS ES D9 DA 22<92> GABG:EA AS D9 85 ES A9 0m 85<92> 
@4D8:98 85 9A 65 AS 85 9C BS<aU> 07C8:D@ 1A AS EA D9 E2 22 DO<SA> @ABB:D4 85 DS 85 D& 85 D7 85<C2> 
G4EB:OD 65 A4 95 00 HS O1 65629» @7D8: 13 AS ES D9 EA 22 DO @C<SF> GACO:DB 85 D9 60 A9 05 85 FA<AB> 
W4EB:AS 95 Q1 EB EB ED 92 9O<BB> @7D8:A5 E6 D9 F2 22 D@ 05 AZ<E9> @ACB:A9 80 85 FT 60 EE Q1 DS<6Q> 
G4FG:EE 85 OF AS 90 85 QE EE<EP> B7EB:01 AC 95 2A 90 2A AS E&XEC> GADG: 20 Ai DE CE Gl DS 60 EE<S7> 
Q4FB:@L DS Ab AS 18 BA 65 FAca2> @7EB:F9 F2 22 85 E6 AS ES Fa<11> @ADG: OL DS 20 E6 DB CE BI DSAF> 
9500:85 9A 18 BA 65 9C 85 90<457> B7FO:EA 22 85 ES AS E4 F9 E2<E4> GREO:6B EE @1 DS 20 @B DB CE<FC> 
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0568: 95 Di EB EB EO 92 90 En<DI> @858:A5 ES F7 E2 22 85 ES AScc3> @B48:05 AB BA 46 F7 90 08 69CES> 
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@SFe:DE AS DD 79 EA 22 85 DD<aB> QBE8:AS ES D9 D2 22 DO 21 AS<1a> QBDE:D& A4 E2 85 EZ 84 D& AScDS> 
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@608:DR 79 DA 22 85 DB AS DA<F@> Q8F8:D9 E2 22 DM 13 A5 EB D9<92> GBER:DB A4 E4 85 E4 84 DB ASc32> 
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0620:05 FO 05 88 10 C7 AD 07<69> @910:90 2A AS E9 FF F2 22 85<78> aCa0:88 FO 22 88 F® 10 88 DA<BS> 
0628:46 E4 90 3@ 18 AS DD 79<CB> @918:E9 AS EB F9 EA 22 85 EB<IB> aCa8: AS AS Ei 85 ES 84 E4 84<09> 
0630: F2 22 85 DD AS DE 79 EA<BD> 0920:A5 E7 F9 E2 22 85 E7 A%x55> @C1G:ES 84 EZ 4C 2D ZD AS E2<a5> 
0638:22 85 DC AS DB 79 EZ 22<2B> B928:E6 ES<BC> @C18:85 ES AS Ei 85 Ea 84 ES<7E> 
0640:85 DB AS DA 79 DA 22 85<ac> Fa<an> @C20:84 EZ 4C 2D 2D AS ES 8%92> 
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18<CQ0> Q948:00 AS ES D9 CA 22 DB 28<5C> @C38:85 ES AS ES 85 E4 AS E2<7F> 
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44E8:2@ IB FF AC 


A4FO:FF 98 AB 08 91 AZ BA 


Du BIST DER DÜMMSTE 
‚COMPUTER AUF DEM 
ICH JE GETIPPT HABE! 


D7<A2> 
DC<77> 
Da<a@> 
ZA<AR> 
AZ» 
Ba<aa> 
BxB1> 
Bi<A2> 
CB<ES> 
20<82> 
EB<FS> 
BO<as> 
AS<EA> 
E6CEB> 
AS<IB> 
AC<DS> 
BA<TA> 
SD<D2> 
3OCEI> 
18<DE> 
BR<BS> 
28<2F> 
@3<aB> 
OX<BE> 
0<79> 
60<°39> 
85<D9> 
26<C5> 
BR<CA> 
B5cQ1> 
BE<CB> 
SD<aD> 
AR<A2> 
DE<B1> 
DE<F9> 
SIAC> 
B<21> 
ac<sa> 
66<42> 
BE<FO> 
E2<79> 
BD<41> 
BA<A7> 
C8<53> 
CR<FB> 
B&<9B> 
99<D7> 
Da<13> 
@C<77> 
FD<71> 
91<27> 
85<D4> 
EB<EC> 
9R<73> 
Ex77> 
ED<71> 
AC<S3> 
FF<FL> 
B6<36> 
AB<67> 
ancas> 


ICH BIN, 


RLSO 


DENKE 


ICH. 


A&C29> 
OB<A> 
FF<EE> 
AB<AD> 
F1<a9> 
Z23<B6> 
B1<a6> 
B1<53> 
BI<AF> 
FD<F1> 
EB<26> 
FE<DF> 
4558:AB @1 Bl A2 29 07 CS ED<FF> 
4560:C8 Bi A2 ES ES 98 08 AR<C7> 
4568:00 Bi A2 29 7F 10 D4 20<ES> 
4570:DE FE AB Q1 Bi A2 29 @7<F2> 
4578:AA CB Bi AZ AB 2@ GB FF<74> 
4580:20 @B FF 86 ED 84 ES KBC» 
4588:A5 A2 E9 03 85 A2 BO @2<AE> 
4590:C6 AS CH 90 DB 86 AS AS<SC» 
4598:C5 91 F@ 15 AD 0D BI A2<AD> 
a5AQ:1® B& IQ BA E6 99 18 ASCaB> 
45AB:DE 65 Ei 85 DE 98 92 E&ca6> 
ASBQ:DF 68 C& 99 38 AS DE ESCDA> 
45B8:E1 85 DE BO @2 C& DF &R<CR> 
45C0:AB 00 Bi A2 29 7F 85 EI<B9> 
45C8:C8 Bi A2 4A 4A AA 85 ED<CE> 
BORX<ER> 
BA<B> 
CB<EB> 
Ca<Da> 
CB<an> 
AI<DE> 
DF<D&> 
20<38> 
6KEE> 
4618:8D FE 82 AC A9 C2 BI 8AC29> 
4620:C09 26 FO 08 A9 AC A2 76<50> 

@2<cD> 
Bi 8D AF FF BE BO FF<B6> 
Bi FF 68 A9 SB 20 96<65> 
AQ a0 Bi BA AA CA BI<EQ> 
20 52 F9 A9 SD 20 96<BC> 
AB 02 Bi 8A AC BS FF<DC> 
82 F4 A9 OC AC DC FRxAF> 
1E F4 2@ FB E4 85 AQ<D7> 
Al 20 62 C9 BO E9 68<2F> 
AS 11 F@ 1E AB @2 BI<IF> 
85 9F CB C4 9F BO 10<34> 
SA 85 A7 CB Bi 8A C8<42> 
AG 20 DO FF A4 A7 AS<BE> 
D@ E97 AC A4 FS OA B0<14> 
FF &C 08 22 AO @1 B1<22> 
3@ 12 18 AS 9F 65 BA<2D> 
8A 90 22 E6 SB Bi BA<BQ> 
C3 4C 6A FS 4C 78 E6<05> 
Laenge 18194 Bytes 


Listing »Turbo-Basic XL« (Schluß) 


08 ES’ DocH SCHON, 
COMPUTER MIT 
KÜNSTLICHER 
INTELLIGENZ 


TURBO-BASIC 


Schnell, 
schneller, 
Turbo-Basic 
XL aus dem 
Compiler 


Passend zum Interpreter für Turbo-Basic XL gibtes 
jetzt noch das Turbo-Basic XL als Compiler zum 
Abtippen. Er macht langsame Basic- und Turbo- 
Basic-XL-Programme superschnell. 


schwindigkeit ankommt, ist eine optimale Programmie- 

rung erforderlich. Man sollte unnötige Sprünge ver- 
meiden und weniger benutzte Programmteile ans Ende ver- 
bannen. Dies ist aber nur als goldene Regel gedacht. Liegt 
aber ein optimales Programm vor, das noch schneller werden 
soll, dann hilft nur ein Basic-Compiler weiter. Dieser wandelt 
normale Basic-Programme in Maschinensprache um, bevor 
sie gestartet werden. Die Programme sind dann natürlich ent- 
sprechend schneller. Auf Seite 32 finden Sie übrigens einen 
Vergleich zwischen den gängigsten Compilern und dem 
Turbo-Basic-Compiler. Derhier abgedruckte Compiler hatbei 
der Gegenüberstellung die besten Zeiten erzielt. Wenn man 
dann noch in Betracht zieht, daß es den Turbo-Basic- 
Compiler fast zum Nulltarif gibt, dann isterein absolutes Muß. 


| mmer dann, wenn es bei Basic-Programmen auf die Ge- 


Ein Sprinter stellt sich vor: 
Compiler kontra Interpreter 


Die heutigen Mikroprozessoren sind nicht in der Lage, ein 
Basic-Programm direkt auszuführen. Sie kennen nur ihre 
interne Sprache, also die Maschinensprache. Aus diesem 
Grund ist der sogenannte Interpreter »zwischengeschaltet«, 
Er wandelt jede Basic-Programmzeile wieder in den Maschi- 
nencode um. Soisteseinsichtig, daß Basic-Programme rela- 
tiv langsam sind. Ein einfacher Basic-Befehl, wie beispiels- 
weise »PRINT 3*4« kann nämlich in der Übersetzung schon 
aus mehreren tausend Maschinenbefehlen bestehen. 

Nun gibt es zwei Wege, ein Programm in einer Hochspra- 
che, dazu zählt auch Basic, auszuführen. Entweder speichert 
man jeden Befehl, so wie er eingegeben wird. Nach dem Star- 
ten mit RUN führt ein entsprechendes Programm, der Inter- 
preter also, für jeden einzelnen Befehl eine entsprechende 
Maschinensprache-Routine aus. Oder aber das gesamte 
Programm wird erst in Maschinensprache übersetzt, also 
compiliert, bevor es ausgeführt wird. Beide Verfahren haben 
Vor- und Nachteile. 

Für den Interpreter spricht die einfache Bedienung. Es las- 
sen sich mit ihm problemlos Programmänderungen durchfüh- 
ren, die dann auch schnell zu testen sind. 

Mit dem Compiler zu arbeiten ist etwas umständlicher und 
die Fehlersuche aufwendiger. Hat man nämlich in seinem 
Basic-Programm einen nicht compilierbaren Befehl verwen- 
det, dann muß man zwangsläufig den Interpreter wieder 
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laden oder den Computer ausschalten und erneut booten. 
Diesen Nachteil gleichen aber compilierte Programme 
gegenüber normalen Basic-Programmen durch ihre höhere 
Geschwindigkeit wieder aus. 

Ein Interpreter benötigt weniger Speicherplatz als ein Com- 
piler. Ebenso ist fast für jeden Compiler ein schneller Mas- 
senspeicher, also ein Diskettenlaufwerk, ein Muß. Es gibt 
sogar Compiler, die zwei Diskettenlaufwerke voraussetzen: 
eines für den Compiler und ein weiteres für das zu compilie- 
rende Programm. Der Turbo-Basic-Compiler kommt aller- 
dings mit nur einem Laufwerk aus. 

Der Atari-Basic-Interpreter gehört einer besonders langsa- 
men Spezies an. Als nämlich im Jahre 1979 der Interpreter 
entwickelt wurde, mußte er unbedingt in einem 8 KByte gro- 
Ben ROM Platz finden. Speicherplatz war zu der Zeit noch 
sehr teuer. Weiterhin rechnet das Atari-Basic mit BCD-Zahlen 
(Binary Coded Decimals), um Rundungsfehler zu vermeiden. 
Dies ist prinzipiell zeitaufwendiger als die normale binäre 
Arithmetik. 

Turbo-Basic XL nimmt 18 KByte in Anspruch. Es enthält 
spezielle BCD-Routinen. Solche Algorithmen sind zwar recht 
umfangreich, dafür aber sehr schnell. 


Compiler zweigeteilt 


Der Turbo-Basic-Compiler besteht aus zwei getrennten 
Programmen. Erstens aus dem eigentlichen Compiler, der 
die Übersetzung von Basic-Programmen übernimmt, und 
zweitens aus der Runtime-Bibliothek. Dieser Programmteil 
enthält die Arithmetik- sowie andere Routinen, die zum Lauf 
des Compilats nötig sind, So ist sichergestellt, daß sich auch 
lange Programme compilieren lassen. Zum Zeitpunkt des 
Compilierens müssen sich also nicht der Compiler und das 
Runtime-Paket gleichzeitig im Speicher befinden. Weiterhin 
spart man sich so auch Diskettenplatz. 

Der Compiler istmit seinen etwa 20000 Byte sehr umfang- 
reich. Um nun überhaupt damit arbeiten zu können, sindnoch 
einige Dinge vorauszuschicken. Sie benötigen unbedingt ein 
Diskettenlaufwerk (mit Kassettenrecorder funktionieren 
weder Compiler noch Turbo-Basic XL). Außerdem müssen 
Sie, bevor Sie mit dem Abtippen der beiden Programme 
beginnen, unbedingt AMPEL (Atari-Maschinen-Programm- 
Eingabe-Listing) eingeben. Von Basic aus ist eine Eingabe 
des Compilers nämlich nicht möglich. 

Mit AMPEL aber lassen sich reine Maschinenprogramme 
sehr schnell abtippen. Außerdem reduziert dieses Eingabe- 
programm die Anzahl der einzugebenden Zeichen auf etwa 
45000. Entsprechende DATA-Listings oder Basic-Lader 
würden mehr als 80000 Zeichen umfassen, und das ohne 
Fehlerkontrolle. 

Wenn Sie also das Eingabeprogramm »AMPEL« vorliegen 
haben, starten Sie mit RUN und RETURN. Wählen Sie dann 
einen Namen, unter dem Sie das einzugebende Programm 
speichern möchten. Die Gerätebezeichnung ist bereits vor- 
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Bild 1. Das Titelbild des Turbo-Basic-Compilers 
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Meiches Pragramm soll compiliert werden? 


Geben Sie zuerst die Laufwerksnummer 
zwischen 1 und 8 ein, und wählen das 
Programm dann nit den Pfeiltasten 


«, », t und $. Dann RETURN drücken. 


Control D = Rückkehr zum D05 


Control R = Reboot 


Bild 2. Nach dem Laden erscheint das Erklärungsmenü. Mit 
der Taste 1 können Sie sich das Inhaltsverzeichnis der Dis- 
kette in Laufwerk Nummer 1 betrachten. 


PROGRAMM-STECKBRIEF 


Programmname Turbo-Basic-Compiler 


Programmtyp Programmiersprache, 


Programmiersprache Maschinensprache 


20809 Byte 


Programmlänge 


für Computer 800 XL/130XE 


zusätzliche Hardware Diskettenlaufwerk 


Eingabehilfe AMPEL 


Der Compiler ist in zwei Teile auf- 
geteilt. Einerseits in den Compiler und 
andererseits in das Runtime-Paket 


Bemerkung 


Leserservice 


Diskette (COMPILER.COM und 


Kl; RUNTIME.COM) 


gegeben, nämlich »D1:« für Diskettenlaufwerk Nummer eins. 
Anschließend werden Sie nach der Anzahl der Bytes gefragt. 
Entnehmen Sie diese Zahl vom Ende des jeweiligen AMPEL- 
Listings. Sollten Sie bereits einen Teil des Programms vorlie- 
gen haben, geben Sie bitte unbedingt den zuvor gewählten 
Namen ein. Dann wird der bereits eingegebene Teil, den Sie 
mit CONTROL-S gespeichert haben, wieder in den RAM- 
Speicher geladen, und Sie können an der Stelle fortfahren, an 
der Sie aufgehört hatten. 

Bedenken Sie bitte, daß Sie bei der Benennung des Pro- 
gramms unterschiedliche Namen verwenden müssen. Wäh- 
len Sie also für Listing 1 beispielsweise den Namen »COMPI- 
LER.OBJ« und für das zweite »RUNTIME.OBJ«. Somit sind 
eventuelle Verwechslungen weitestgehend ausgeschlos- 
sen. 

Wenn beide Programme komplett eingegeben sind, sollten 
Sie sich unbedingt eine oder besser noch mehrere Sicher- 
heitskopien anfertigen. Auch ist zu empfehlen, während der 
Eingabe der Programme öfter CONTROL-S zu betätigen, um 
das Programm im Speicher auf Diskette zu speichern. Das 
dauert nur wenige Sekunden, für das erneute Eingeben der 
Programme nach einem Stromausfall benötigen Sie jedoch 
ein Vielfaches der Zeit. 

Verwenden Sie auch für den eigentlichen Compiler und das 
Runtime-Programm jeweils eine eigene Diskette. Beide Pro- 
gramme sind nämlich als »AUTORUN.SYS«-Files ausgelegt. 
Das bedeutet, daß sich beide Programme nach dem Ein- 
schalten des Computers automatisch laden und starten kön- 
nen. Für ein Autostart-Programm ist Voraussetzung, daß es 
die Bezeichnung »AUTORUN.SYS« auf Diskette hat. Dann 
muß sich nur noch das File DOS.SYS (entweder DOS 2.0 
oder DOS 2.5) und gegebenenfalls DUP.SYS auf der Diskette 
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Bild 3. Das Inhaltsverzeichnis präsentiert sich in dieser Form. 
Mit den Pfeiltasten wählen Sie das zu compilierende 
Programm aus. 


befinden, und schon laden und starten sich die Programme 
nach dem Einschalten des Computers automatisch. 

Das Umbenennen eines Dateinamens ist übrigens sehr 
einfach. Nehmen wir an, daß sich der Compiler unter dem 
Namen »COMPILER.OBJ« auf Diskette befindet. Das Pro- 
gramm soll nun in »AUTORUN.SYS« umbenannt werden. 
Legen Sie also eine Diskette mit den Files DOS.SYS und 
DUPSYS ins Laufwerk ein, und schalten Sie die Stromversor- 
gung des Computers an. Nach der READY-Meldung geben 
Sie DOS ein, um in das entsprechende Menü zu gelangen. 
Wählen Sie jetzt die Funktion E für »Rename File«, und geben 
Sie den alten und, mit einem Komma getrennt, den neuen 
Programmnamen ein. Der neue Programmname lautet also in 
unserem Beispiel »AUTORUN.SYS«. Jetzt haben Sie ein 
Autostart-Programm vorliegen. Dies funktioniert jedoch nur 
mit speziell für einen Autostart ausgelegten Maschinen- 
Programmen. 

Für Ihre Mühe, das Programm eingetippt zu haben, werden 
Sie - falls Sie auch an genügend Sicherheitskopien gedacht 
haben - belohnt. Sie verfügen nämlich damit über einen Com- 
piler, der sowohl beim Compilieren als auch bei der Pro- 
grammausführung besonders schnell ist. 


Bedienung des Compilers 


Der Umgang mit dem Turbo-Basic-Compiler ist sehr ein- 
fach. Es ist nicht nötig, laufend mit der Bedienungsanleitung 
in der Hand zu arbeiten. Allerdings sollten Sie sich diese 
Beschreibung zumindest einmal aufmerksam durchlesen. 
Übrigens, haben Sie schon Ihren Compiler und das Runtime- 
Paket auf jeweils einer Diskette vorliegen? 

Wenn Sie also ein Programm compilieren möchten, sollte 
es mit SAVE gespeichert sein. Mit LIST gespeicherte Pro- 
gramme lassen sich mit dem Turbo-Basic-Compiler nicht 
compilieren. 

Schieben Sie also einfach die Compiler-Diskette in Lauf- 
werk Nummer D1:, und schalten Sie anschließend den Com- 
puter ein. Dann wird automatisch das DOS und das AUTO- 
RUN.SYS-File mit dem Compiler geladen. Zunächst sollte 
das Titelbild (Bild 1) erscheinen. Dieser Compiler meldet sich 
mit einer kurzen Bedienungsanleitung (Bild 2). Jetzt können 
Sie die Compiler-Diskette aus dem Laufwerk nehmen, sie 
wird für den folgenden Vorgang nicht mehr benötigt. Legen 
Sie dann die Diskette mit dem zu compilierenden Programm 
ein, und drücken Sie die Taste 1. Sollte Ihnen mehr als ein 
Laufwerk zur Verfügung stehen, geben Sie die entspre- 
chende Laufwerknummer an. Anschließend wird der Bild- 
schirm gelöscht. Es verbleiben nur drei Zeilen am oberen 
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TURBO-BASIC 


Bildschirmrand. Auf dem Bildschirm erscheint daraufhin das 
Inhaltsverzeichnis der Diskette. Aus Platzmangel mußte auf 
die Angabe der belegten Sektoren der einzelnen Files ver- 
zichtet werden. Sollte die Diskette leer sein, gelangen Sie 
wieder zum Titelbild. Wenn sich das zu compilierende Pro- 
gramm nicht auf Diskette befindet, wechseln Sie sie einfach 
aus und betätigen dann noch einmal die Taste 1. 

Der erste Programmname, in der oberen linken Bild- 
schirmecke, wird invers dargestellt. Bild 3 verdeutlicht dies. 
Die Ausgabe erfolgt dabei mit dunklen Buchstaben auf hellem 
Hintergrund, so als wäre der Cursor viel breiter. Diesen »Cur- 
sor« können Sie mit den Pfeiltasten, ohne CONTROL-Taste, 
bewegen. Wenn der richtige Filename invertiert ist, drücken 
Sie RETURN, und schon beginnt die Compilierung. Während 
dieses Vorgangs wird nur von Diskette gelesen, aber keine 
Zwischenfiles auf Diskette abgelegt. 

Beim Turbo-Basic-Compiler handelt es sich um einen »Two 
Pass Compiler«. Das heißt, die Compilierung erfolgt in zwei 
Durchgängen. Dabei muß das Programm nur einmal von Dis- 
kette gelesen werden. War das Programm problemlos zu 
compilieren, erfolgen die Meldung »Keine Fehler« und eine 
Angabe über die Programmlänge. Die Frage nach dem Pro- 
grammnamen, unter dem das compilierte Programm auf Dis- 
kette gespeichert werden soll, schließt das Ganze ab. Dabei 
sind die Gerätebezeichnung, also D1 für Laufwerk Nummer 
eins, und der Fileextender (der Text, der nach dem Punkt 
folgt), also ». FBC«schon vorgegeben. Wenn Sie mehr als ein 
Laufwerk besitzen, können Sie an dieser Stelle die entspre- 
chende Taste für die Laufwerknummer drücken. 

Geben Sie jetzt den Filenamen ein. Das erste Zeichen muß 
dabei ein Buchstabe sein, und die Gesamtlänge darf acht Zei- 
chen nicht überschreiten. Bei einer fehlerhaften Eingabe 
können Sie mit der DELETE/BACKSPACE-Taste korrigieren. 
Nach Betätigung der RETURN-Taste wird das endgültige 
Compilat unter dem eingegebenen Namen auf der Diskette 
gespeichert, worauf sich auch die Runtime-Bibliothek (als 
AUTORUN.SYS-File) befinden sollte. Wenn Sie Ihrem compi- 
lierten Programm den Namen AUTORUN.FBC geben, wirdes 
beim Booten automatisch geladen und gestartet. 

Ist das Speichern beendet, werden Sie gefragt, ob Sie das 
Programm noch einmal speichern möchten. Drücken Sie »J« 
für ja, sonst »N« für nein. Mit »N« gelangen Sie wieder ins Titel- 
bild, das nach dem Booten des Compilers auf dem Bildschirm 
zu sehen war. Jetzt können Sie wieder die Taste 1 drücken, 
falls Sie ein weiteres Programm compilieren möchten. Mit 
CONTROL-D gelangt man ins DOS, und CONTROL-R ent- 
spricht dem Aus- und Einschalten des Computers. 

Zum Ausführen des compilierten Programms müssen Sie 
die Diskette mit der Runtime-Bibliothek einlegen und booten. 
Dazu können Sie die CONTROL-R-Funktion im Compiler 
wählen oder den Computer aus- und wieder einschalten. 
Wenn sich auf der Diskette ein File mit dem Namen AUTO- 
RUN.FBC befindet, wird dieses geladen und gestartet. 
Andernfalls erscheint die Meldung »Fehler 170 in 12345 
($AAAA)«. Die Fehlernummer 170 steht für »File not founde«. 
Es wurde also versucht, ein nicht auf Diskette befindliches 
Programm zu laden. Nähere Informationen hierzu kann man 
auch der Basic- oder DOS-Anleitung entnehmen. Sollte also 
diese Fehlermeldung erscheinen, ist die Zeilennummer zufäl- 
lig und der in Klammern angegebene 6502-Programmzähler- 
stand unwichtig. Nach jeder Fehlermeldung, dem Program- 
mende oder END, STOP und DOS-Befehlen in compilierten 
Programm erscheint »Programmende: Dos, Run oder Load?«. 
Wenn Sie jetzt die Taste D drücken, wird das DOS aufgerufen, 
Rwirktwie RUN vom Basic-Interpreter aus, undL lädt ein Pro- 
gramm von Diskette (wie »RUN ”D:Filename.ext”« unter 
Basic). Alle anderen Tasten werden ignoriert. Nach L 
erscheint »” Filename D: ”« auf dem Bildschirm. Sie können 
jetzt den Namen eines compilierten Programms eingeben. 
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Der Extender ».FBC« wird automatisch angefügt, allerdings 
nicht angezeigt (sonst wäre das Runtime-File zu lang). Wie 
unter DOS können Sie auch ein Prefix wie D2: angeben. 


Nicht compilierbare Befehle 


Es gibt eine Reihe von Befehlen, die der Turbo-Basic- 
Compiler nicht unterstützt. Diese sind im einzelnen: LIST, 
ENTER, *L, DEL, RENUM, DUMP, TRACE, CONT, LOAD, 
SAVE, CLOAD, CSAVE, NEW und ERROR. Sämtliche Varia- 
blennamen sowie REM-Zeilen werden beim Compilieren 
nicht berücksichtigt. 

Andererseits compiliert der Turbo-Basic-Compiler eine 
Reihe von Befehlen, die andere, wie beispielsweise der ABC- 
oder MMG-Compiler, nicht unterstützen. Dabei handelt es 
sich besonders um die Turbo-Basic XL-spezifischen Befehle, 
berechnete GOTO-Anweisungen, GOSUB, TRAP und RE- 
STORE sowie DIM. Berechnete Sprungziele nach ON wer- 
den allerdings nicht verarbeitet. 

Außerdem stellt der Turbo-Basic-Compiler noch gewisse 
‚Ansprüche an die Strukturierung von Programmen. So dürfen 
in einem Programm einer FOR-NEXT-Schleife auf keinen Fall 
mehrere NEXT-Anweisungen zugeordnet sein. Das gleiche 
gilt für die REPEAT-UNTIL-, WHILE-WEND- und DO-LOOP- 
Schleifen. Sie dürfen weiterhin nicht durch GOTO- 
Anweisungen zerstückelt werden. Fehlermeldungen wie 
»110 FOR fehlte, »120 NEXT fehlte, »800 UNTIL fehit« sind auf 
solche ungünstigen Programm-Konstruktionen zurückzu- 
führen. 

Hier zwei Beispiele für einen sehr ungeschickten Program- 
mierstil: 

100 GOTO 120 

110 NEXT I:G0TO 130 

120 FOR I=1 TO 5:PRINT 1:G0TO 110 
130 REM 


100 FOR I=1 TO 10 

110 IF A THEN ? -I:NEXT I:GOTO 130 
120 ? I:NEXT I 

130 REM 

Diese beiden Programme werden vom Interpreter 
anstandslos ausgeführt. Beim Compilieren ist aber die Rei- 
henfolge der FOR- und NEXT-Befehle im Programmtext aus- 
schlaggebend und nicht die Reihenfolge, die sich bei Ver- 
wendung von GOTO-Anweisungen ergibt. Der Turbo-Basic 
XL-Befehl GO # (GOTO Marke) istin den oben gezeigten Bei- 
spielen ebenfalls nicht zulässig. 

Das erste Programm ist ein typisches Beispiel für den 
sogenannten »Spaghetticode«. Der Programmfluß läßt sich 
ähnlich gut verfolgen wie die Schlingen einer Nudel auf einem 
Teller. Das zweite Beispiel ist schon besser programmiert. 
Nutzt man aber die Fähigkeiten von Turbo-Basic XL, nämlich 
strukturiert zu programmieren, voll aus, sähe das zweite Bei- 
spiel so aus: 

100 FOR I=1 TO 10:IF A:? -I:ELSE:? I:ENDIF:NEXT I 
oder, noch übersichtlicher, so: 
100 FOR I=1 TO 10 


110 IFA 
120 ?-I 
130 ELSE 
140 Ep: 
150 ENDIF 
160 NEXT I 


In Atari-Basic könnte das dann so aussehen: 
100 FOR I=1 TO 10 

110 IF A THEN ? -I:G0T0 125 

120 ?1 

125 NEXT I 

130 REM 


Auch das Atari-Basic-Beispiel wird vom Compiler an- 
standslos verarbeitet und erzeugt sogar genau den gleichen 
Code wie die strukturierte Turbo-Basic XL-Version. Die Über- 
sichtlichkeit leidet aber hier schon durch den GOTO-Befehl 
in Zeile 110. Sie sollten wirklich nur dann so programmieren, 
wenn Sie auf diese Weise Ihr Programm besser überblicken 
können. Möchte man aber sein Programm durchgehend 
strukturiert gestalten, dürfen keine GOTO- sowie GOSUB- 
Befehle verwendet werden. Wer bereits Erfahrungen mit der 
Programmiersprache Pascal gesammelt hat, weiß, daß es 
hier solche Befehle überhaupt nicht gibt. In Turbo-Basic XL 
lassen sich die GOTO- und GOSUB-Befehle fastimmer durch 
IF-ELSE-ENDIF, WHILE-WEND, REPEAT-UNTIL oder DO- 
EXIT-LOOP ersetzen. 

Weitere Fehler treten auf, wenn bei POKE-, DPOKE-, 
PEEK- oder auch PLOT- oder GRAPHICS-Befehlen zu große, 
oder zu kleine Zahlen verwendet werden; also bei allen 
Befehlen, die Integer-Parameter verwenden. Zum Beispiel: 
»POKE 100,300«, »DPOKE 70000,1«, »PLOT 100,300«, 
»? PEEK (-1)« oder »GRAPHICS -5« sind also nicht zulässig. 
Der Turbo-Basic-Compiler wandelt nämlich bei solchen 
Befehlen konstante Zahlen selbständig in die kompaktere 
Integer-Darstellung um. Dies erledigt der Basic-Interpreter 
erst zur Laufzeit und gibt dann die Fehlermeldung »ERROR 3« 
aus. Diese Umwandlung kostet den Interpreter viel Zeit und 
ist einer der Gründe dafür, warum compilierte Programme 
schneller sind. Als Fehlermeldungen gibt es noch »Integer 
<0 oder >65535« und »Integer >255«. 

Für Atari-Computer werden neben dem Standard-Atari- 
Basic und Turbo-Basic XL noch einige weitere Basic-Inter- 
preter angeboten. Dazu zählen Basic A+, Basic XL und Ba- 
sic XE. Diese Interpreter verwenden andere Token als Turbo- 


TURBO-BASIC 


Basic XL. Sollten Sie also ein Programm, das mit einem dieser 
Interpreter geschrieben wurde, compilieren, verwechselt der 
Turbo-Basic-Compiler zwangsläufig die Token, und somit die 
Befehle. Als Resultat erhalten Sie dann ein vollkommen fal- 
sches Compilat. In den meisten Fällen bekommen Sie dann 
die Meldung »Compiler Fehler«e oder »Token #xxx 
***Muell*«. 

Eine weitere Fehlermeldungist»Ausdruck zukomplex«. Sie 
tritt auf, wenn bei der Übersetzung einer Berechnung ein 
spezieller, interner Umwandlungspufferdes Compilers über- 
läuft. Dieser Fehler ist aber - auch nach intensivem Testen 
des Compilers - noch nicht aufgetreten. 

(Frank Ostrowski/wb) 


Vorsicht, Fehler QJSA und QJSB! 


Bei der Entwicklung des Turbo-Basic-Compilers wurden 
die Fehlermeldungen »QJSA« und »QUSB« eingebaut. Diese 
dürfen aber unter keinen Umständen auftreten. Sollten Sie 
solche Fehler erhalten, teilen Sie dies bitte umgehend der 
Happy-Computer-Redaktion mit. Legen Sie dann Ihr Pro- 
gramm auf Diskette bei. Wenn Sie den Turbo-Basic-Compiler 
abgetippt haben, kann auch ein unentdeckter Tippfehler die 
Ursache sein. Wenden Sie sich aber auf jeden Fall an: 


Redaktion Happy-Computer 
z. Hd. Werner Breuer 
»Compiler-Fehler« 
Hans-Pinsel-Str. 10a 


aU00: FF FF 00 SE AF SE 00 18<1A> 0178:2@ 11 20 20 
A008: 18 FF SC SC 66 42 00 QQ<SS> GB: 11 9B 20 11 
@B10:00 O6 66 TE 76 66 UM QU<7B> @1aa: 11 29 2@ 11 
BDIB:18 SC 66 7E 66 66 BO SE<DE> B19@:11 20 11 11 
0020: 73 33 SE 30 3® 78 00 7C<3C> @198:20 2@ 11 20 
0028:37 33 3E 3@ 3® 78 00 QU<BE> B1AB:290 20 11 11 
0030: 60 63 36 IC 39 63 00 BI<OC> BIABı1l 2@ 20 20 
@038:01 OF 05 @5 F& E4 00 BU<CC> @1BB: 11 2@ 11 20 
@040:80 FO CD CO 40 20 UM BI<BA> @1B8:20 2@ 20 20 
0048: 03 96 06 06 03 O1 00 EiC69> B1CQ:20 20 20 11 
0050: 33 96 06 06 33 Ei 00 C7<70> B1C8:15 13 2@ 9B 
0058: 63 33 36 36 66 CE OD QE<EB> @1DB:14 20 15 11 
@060:9C 9C F& 66 66 67 OD 7E<B9> G1D8:20 2@ 11 20 
@068:33 33 SE 3@ 3@ 78 @@ 67<DF> G1EB:12 11 13 20 
0070166 66 66 66 66 36 00 FF<EA> G1EB:11 11 13 20 
@078:31 31 51 31 31 7B 00 FB<&4> QOLFO:9B 9B 7F 7F 
aBaB:81 81 Fi Bi 81 FB 80 FE<CF> BIF8:69 6F 6E 20 
@BB8:8C BC FB BO 98 CC 55 An<SE> @200:9B 7F 20 28 
0090:55 AA 55 AA 55 AA Bi 02<50> 0208:39 38 35 20 
@O90: 05 On 15 2A 55 An 0@ B0<9a> @210:6B 2@ AF 73 
GOAG: AD Am SQ AB 54 AA 55 AA<17> @218:73 6B 69 9B 
@GAB:S54 AB SO AD 4m 80 55 2ACBS> 0220:02 00 s@ 7D 
GGRQ: 15 BA 05 92 Di 00 DD SO<B&> 0228: 4@ 15 A9 7D 
GOBR:62 31 A2 00 BD 0® E@ PD<AD> 0230:84 DD A? 0m 
@OCB: 00 SC BD 00 Ei 9D QB SD<1D> @238:A9 FE 8D @1 
GOCH: BD @O ES 9D aD SF ER DO<FA> G240:EE @1 DS 6C 
GODB:EB AF 10 OD C& 02 A9 SC<ar> @248:D3 AC 77 E4 
QODE: ED CS 02 BD F@ D2 BD FA<FE> 0250: 2E 2A 9B 50 
GBEB: 02 A9 47 BD 44 03 A9 30<7D> @258:9B EE @1 DS 
BBEB:ED 45 93 AF IC ED 48 QS<ES> 0260:48 AD @1 D3 
GOFO:AF @1 BD 49 03 A9 OB BD<29> @268:8D @1 DS 68 
BOFB:42 03 20 5& EA BE FO 02<EA> @27®:CE ®1 DS 68 
@100:40 7D 9B IB 7F 7F 20 QU<aC> 0278: 10 03 sc 00 
@1B8:01 92 03 04 05 06 07 9B<94> 0280:A7 20 a8 A9 
@110:7F 7F 08 09 OA OB GC OD<EA> 0288:05 @ı 48 DB 
@118:0E BF 10 9B 96 20 2@ 20<AC> @290:48 EE 91 DS 
0120:20 20 20 20 2® 2m 2@ 20<11> 0298:22 @2 48 A? 
@128:54 75 72 62 6F 29 42 A1<CF> @2AB: 48 08 EE Di 
@130:53 49 43 20 58 AC 9B 9B<SA> @ZAB:EE @1 DS 20 
@138:2@ 12 11 11 13 29 12 11<5@> @2B0:D3 6@ BD 47 
@14B:11 13 20 11 13 12 11 20<C7> @2B8:@3 48 BD 4A 
@14B:11 11 11 13 15 11 14 20<9F> @2C0:4B 05 85 2B 
150: 11 20 2@ 20 11 11 14 2U<FD> @2CB:EE @1 DS 96 
@1SB:11 11 11 13 98 2@ 11 20<19> @2D2:CE @l DS 60 
0160:2@ 20 2@ 11 2@ 2® 11 20<4R> @2D8:D2 D9 CE @1 
@16B:11 15 14 11 2@ 11 20 20<71> G2E9:D5 60 78 7@ 
@170:11 20 11 20 2@ 11 20 2u<88> @2E8:00 02 om 02 


8013 Haar 
20 11 28 20<F9> 02F0:02 ®2 02 02 D82 82 D2 W2<F4a> 
20 20 20 2U<EB> u2F8:02 02 02 982 02 02 02 B2%Fc> 
20 11 20 20<C5> 21 @@<on> 
11 14 20 11<8@> 2F O0<S56> 
20 20 11 11<87> 38 2C<1D> 
11 14 9B 20<1D> 70 69<B5> 
20 11 20 20<D6> 11 B@<C6> 
2@ 11 20 11<BS> 08 11<F6> 
11 20 2@ 11<31> 61 6E<97> 
2@ 28 20 11<BA> 0338:6B 0® Z2F 73 74 72 6F 77<C4> 
20 15 11 11<48> 0348:73 6B 69 DO 6B BD 61 AE<A7> 
11 14 20 11<C2> 0348:24 E4 AC 25 E4 EB DO BI<74> 
11 20 20 20<7C> 0350:C8 BE 24 21 8C 25 21 A9%FBO> 
11 11 11 20<AS> 0358:00 BD BE D4 78 AF FE BD<73> 
11 20 15 13<62> 0360: 01 DS A9 CB BD FA FF A%6D> 
56 65 72 73<A5> 0368:20 8D FB FF AF FO BD FE<15> 
31 2E 31 9B<DA> 8370:FF A9 20 BD FF FF AF CC<BE> 
43 29 20 31<68> 0378:20 65 60 A9 E® 20 65 HU<B6> 
46 72 61 6E<82> 0380:A9 40 BD BE DA 58 A9 FF<4E> 
74 72 6F T77<A2> 0388:8D ®1 DS 20 BB 640 A9 BR<11> 
9B E2 02 ES<CE> 8390185 89 AS BC A4 OD BD 7E<ES> 
20 98 21 20<B4> 0398:20 8C 7F 20 A2 BI BE FE<B9> 
Aa 20 85 BC<11> @3A0:03 86 09 86 BB CA BE A4<CcB> 
85 52 85 AX<ES> 83AB:02 AC 80 28 85 DS AD B@<aD> 
D3 AC 00 C0<39> @3B0:84 D4 A2 @4 A9 FF 8D BI<cH> 
BA 08 EE BI<C9> @3B8:D3 Bi D4 99 @B 85 CB DA<CD> 
44 31 3A 2A<37> @scı 8 CE Bi DS B9 08 85 91<24> 
3A 9B 45 3A<AB> @5C8:D4 C8 DO F& E6 DS CA Da<an> 
20 56 E4 08<98> @SDB:ES 68 A2 10 A9 D& 9D A4<D1> 
27 FC 09 82<0C> 03D8:03 A9 00 9D 45 83 9D 4%DE> 
28 48 68 Am<Bı> BSEB:03 AI 4 9D 48 03 A9 07<93> 
48 2C OF DA<21> @3E8:9D 42 03 20 56 E4 3@ SA<E4> 
02 48 BA A&<DE> B3FB:AF BE 85 DA 9D 44 83 AR<C2> 
C4 48 BA BD<62> @35F8:61 85 DB 9D 45 83 358 AS<CBF> 
a8 BA 48 90<62> 8400:D8 ES D& 85 DE AS D9 ES<C2> 
8D OF D4 &C<3F> 0408:D7 85 DD E6& DC DB 82 E&<iF> 
20 48 AI Cö<FB> @410:DD AS DC 9D 48 83 AS DD<A9> 
D3 6C 16 82%<13> 8418:9D 49 83 20 56 E4 30 32<36> 
88 21 CE BI<BI1> DD FRXES> 
83 48 BD 46<2A> DO FX2E> 
83 85 2A BD<8B> @430:E6 D7 E& DB CA DB F2 A&<B2> 
98 AB SC HR<EB> 8438:DC F@ 08 Bi DA 91 D& CB<BE> 
2A 20 E2 F&6<62> @448:CA DO FB A9 FF 8D Bi D3<BI> 
EE 1 DS 20<95> @3 ac<78> 
DS AS D4 A4<TE> ®2 ES<BB> 
40 46 5D 21<71> CB 20<13> 
80 42 B& BC<C2> 0468:CA CB 18 AS 58 49 78 B8D<X9F> 


Listing 1. Turbo-Basic-Compiler (Länge: 9933 Byte). Geben Sie das Programm bitte mit AMPEL von Seite 87 ein. 


2480: IC 
0488: 20 


@aadı Aa 
2420: 20 
0488: 00 


@408:67 
@4D8:88 
G4EB: AB 
048: 20 
Bra: AS 
B4r8ıF7 
2500:C4 
0508: 98 
@518:65 
@518:74 
0520: 65 
0528: 
0530:85 
9538: @C 
0548: 03 
@548:9D 
0550:49 
0558:84 
0560: 05 
B568:E4 
2570: 00 
8578: 4C 
0590: 99 
0588: 98 
0590: 83 
@598:03 
B5AQ:6B 
@5AB: 9D 
@SBB:A& 
ASBa: AC 
SCH: 27 
@SCB: 93 
05D0:94 
@SD8:A5 
SER: AB 
aSEB: 81 
BSF@:2C 
a5Fa:ca 
B6OR: Br 
0608: A5 
610: A5 
W618: BE 
0620: D5 
2628: D8 
0638: A5 
0638:65 
0640: 85 
0648: BE 
2650: 20 
658: A5 
0668: 12 
8668: 0C 
2678:D9 
@678:8A 
B680:A& 
Q6aB: An 
0690: A5 
0698: 3D 
B6Ad: aA 
@6AB: 10 
@6RB: 69 
@6B8: 97 
26C0: AZ 
@6CB: 48 
@6D8:D4 
Q6D8: 03 
Q6EB: DA 
Q6ER: 4B 
Q6F0:69 
B6FB:61 


@a718:A5 
0720:C1 
9728: 3F 
@730:27 
0738: 28 
@748:DA 


45<1D> 
21<C0> 
20<61> 
FI<CA> 
50<57> 
2u<an> 
Ea<1a> 
IOCBR> 
Ca<19> 
65<CD> 
6B<31> 
67<86> 
GE<BE> 
ASCSS> 
22<86> 
EA<CF> 
@R<aB> 
A7<aD> 
SICAF> 
EASA> 
2U<AD> 
73<D1> 
6B<ES> 
2EC> 
Ca<FS> 
A9C3I> 
AB<FC» 
20<14> 
DIBS> 
AS<D2> 
SOCAF> 
@R<12> 
64<08> 
B8<21> 
IIIB> 
AB<SF> 
42<02> 
AICEZ> 
F5<7A> 
B6<56> 
BA<An> 
AA<78> 
20<19> 
BSFC> 
B5<SC> 
CHEF> 
1<EL> 
AS<74> 
20<59> 
AE<B2> 
AS<EE> 
AB<2E> 
AR<9D> 
BS<CE> 
BA<CB> 
85<14> 
DS<AR> 
D7<B9> 
DB<FB> 
20<50> 
DB<AB> 
C2<F1> 
F@<an> 
20<2B> 
AA<EE> 
ABCEI> 
B1<07> 
BB<B6> 
16<11> 
20<3C> 
AR<27> 
B9<B5> 
65<C7> 
C2<54> 
B7<CE> 
ID<ED> 
AI<a3> 
AS<AC> 
ASA6> 
E4<ED> 
73<9D> 
72<F@> 
AS<78> 
BO<EB> 
EF<A9> 
DE<73> 
27<B7> 
axcıa> 
20<26> 
C1<16> 
AS<6B> 
E6<IF> 


0748: DB 
@758:95 


BB C9 60 A2 80 A9 #r<EB> 
ao [} 

@758:E@ 8C 9@ F2 A9 
” 
92 


1 EB EBC6B> 
AB BR<13> 
BD<7F> 
IKEC> 
Fa<sa> 
6O<C5> 
EA<FF> 
EE<DI> 
EA<DF> 
@798:1A EA 52 F@ 7C E9 2B Eacsı> 
@7AB:SC EA 4E EC IF E9 67 E9<1D> 
@7A8:5C FO<F3> 
EF<B7> 
EB<73> 
@7C8:7C EA 64 E9 ED EF 48 F@<cs> 
@7C8:79 E9 &B EC 82 E9 73 EscFF> 
@7D8:7C EA 8A EF 63 EF 63 EC<BB> 
@7DE:F6& EB F9 EB 82 E9 FS EB<FS> 
ER<EI> 
E4<DS> 
@7F0:99 EB BD EC C® EC BI Er<16> 
@7FE:DC EC 68 ED BF ED 84 EE<ED> 
EC<S1> 
ED<EB> 
F@<SA> 
FR<BA> 
Ea<24> 
EA<BS> 
0830: 2B E4 DB EE ES FB E6& F@cas> 
0838: 9D F@ BA FO B4 EA 43 EC<FD> 
0848: 7C EC 15 F@ 22 EC 75 EF<4S> 


0768:84 


0848:97 EF 20 00 E4 53 70 &5F3> 
0850:69 63 68 65 72 2® 7& 6F<S@> 
B858:6C 6C 90 4C 9D CO 85 AAcBE> 
0860: 18 65 BA AB AS BB 69 BR<6B> 
@868:CC ES 82 ED E& 82 BB Da<17> 
0870:38 AS 8A F5 08 85 A9 AS<7B> 
@878:8B FS ®1 85 AA 18 BS @@caB> 
@880:85 AS 85 AB 65 A4 85 A7<59> 
@B88:B5 @1 85 A& 85 AC 69 @0<52> 
@890:85 AB BS 0® 65 A4 95 BR<C6> 
8898:65 @1 69 90 95 BI EB ES<DB> 
BBAB:EB BC 9@ EE A& AA 18 Bn<a2> 
GBAB:6S A& 85 A6 18 BA 65 AB«25> 
GBB0:85 AB EB A4 AF F® 25 BB<3B> 
@BBB:B1 AS 91 A7 98 DB FA Fa<c2> 
@ECB: 1B C& A& C6 AB 88 BI AScac> 
@BC8:91 A7 88 Bi AS 91 A7 88<29> 
@EDB:B1 AS 91 A7 BB Bi AS F1<ER> 
@ED8:A7 98 DB EI CA DB EZ AB<EC> 
GBER:0D 6B AF GC 9D 42 03 2U<CE> 
GBEB:AF 20 CO 0 3@ DI 6B 98<2C> 
GBFO:48 28 EF E4 49 2F 4F 20<0D> 
GBF8:45 72 72 &F 72 20 2D 2@<D6> 
2900: 00 AB O0 68 28 EB CI 2U<F2> 
GIBB:EA E4 4C 9D CO 28 27 CI<F7> 
BI10:85 96 AB 00 84 9A BA AS<ac> 
@918:20 27 Ci 99 8@ @4 CB A&cC7> 
@920:95 E4 96 9® F3 C9 14 D9<54> 
0928:05 A9 16 99 7F 04 99 BR<FO> 
0930:04 CB DB FA CB 84 97 AD<aB> 
@938:81 04 85 9D AD 80 84 B5<F6> 
89408:99 @A AB B9 21 CS 85 D4<B2> 
@948:59 22 CS 85 DS 2® 88 CHEC> 
@950:A5 9A F@ 12 A2 89 20 FF<ec> 
@958:C3 A& 9A B7 00 D9 91 AB<67> 
0968:C8 CA DB F7 86 9A 6B &C<F9> 
0968:D4 @@ 2@ 41 CS C& FB C&<Ba> 
@970:9B F@ 20 A4 9B B9 Bl DE<Sa> 
@778:48 B7 00 DE 18 69 08 48<14> 
@980:A9 BF 20 FI E9 20 45 C5<55> 
@9B8:68 20 F3 E9 68 20 F3 E9S6> 
@998:4C 31 C9 AD Bi DE 48 AS<9S> 
2998:9D 18 69 73 48 AC 26 C5<38> 

@® 54 9B AB 00 84 9C<6C> 

AB AF 11 SD @@ DA 20<6B> 

C5 98 FB 85 9E AA BD<DS> 

C6 85 9F A4 9C BE OR<S6> 

BD 27 C7 CS 9F 98 10<24> 

D@ Bi 60 B7 98 DA C&<11> 

AB @A AA BD FD C5 85<68> 

BD FE C5 85 DS 2@ B8<DB> 

4C SD C5 AS 9E C9 3C<D3> 

2E B9 88 DA 88 C9 58<68> 

22 C9 6B FO 1E C9 3864> 

18 C9 37 F@ @C C9 SKIE> 

@8 C9 SB F@ 84 C9 3F<Sc> 

E® A9 83 20 F3 E9 AxD1> 

20 F3 E9 AS 9E a4 9C<69> 

37 9@ 17 C9 SC BB 13<6B> 

SA FB BF A& 98 BD FF<26> 


Listing 1. Turbo-Basic-Compiler (Fortsetzung) 


@A28:D7 
GAS2:DA 
QAS8:9C 
@AaB: 00 
@Aa8: 03 
QASB:C7 
BASB:AB 
@A6B: 28 
BASBIC1 
BA7BEC1 


BAAB:CAa 
GRAB: ED 
BARB:CA 
BABB: DB 
BACB:CA 
BACH: FB 
BADB:C? 
@ADB:FS 
BAER: AS 
BREB:AL 
BAFB:9B 
BAFB:9B 
@B00: B® 
aBBa: Al 
@B1O:A1 
@B18:9B 
0620: 00 
@B28:89 
2830: 08 
@B38:00 
0840: 00 
@B48: 20 
OBS@: 1E 
@BS8: 30 
@BaB: 32 
@B68: 32 
@B70: 32 
0B78:32 
QOBAB: 32 
aBaB: 32 
@B90: 32 
QBIB: 00 
OBAB: 00 
@BAB: 28 
QBBB: IC 
GBBB: 3@ 
@BCB: 82 
GBCB: 82 
QBDB: 82 
@BDa: @2 
OBEB: ZA 
GBEB: 8D 
GOBFO: 88 
ABFB: DO 
@CcaB:A7 
acBsı a9 
SC10:83 
BC18:E9 
0C28: ac 
@C28: AC 
0C38:85 
@C38:D7 
2C40: 07 
@CaB:F3 
@CS8: 98 
@C58: 28 
2C60: 20 
@C6B:F3 
0OC78: 9F 
@C78:85 
ACaB: E97 
BC88:C6 
0C98: 20 
@C9B: a9 


SEITETANESZESIBENNIE 


BENEEBEBTEER 


SERIESSEREBFLEE 


E97 


BD C7<AD> 


a0 aR<B6> 
ca 07<41> 
22 C8<A2> 
46 C8637> 
95 CI<EE> 
9B C7<SF> 
9B C7<CF> 
A6 C7<11> 
IB C7<53> 
B@ C7<85> 


BD C7<SF> 
BD C7<65> 
9B C7<DF> 
89 CB<B6> 


20 20<37> 
22 28<73> 
08 3@E2> 


32 32<FD> 
32 32C84> 
2A 2A<74> 


32 32<95> 


@0 DR<AE> 
20 20<9A> 
1D 1A<F6> 
3@ 3@<CQ> 


@2 @2<DE> 
@2 B2<E6> 
02 32<00> 


FS EIXFE> 
9D C7<BA> 
EI AIC1> 


A9 AX<EO> 


93 IBCF3> 


6A C8<27> 
88 A0<69> 
EI A939> 
A9 OB<13> 
AC FI<64> 
F@ B6<FB> 
A9 87<94> 
F3 E9<CO> 


BO<F7> 
BA<Br> 
@9<30> 
OCSF> 
CF<83> 
BE<ED> 
Cö<D4> 
48<C8> 
48<63> 
Er<a2> 
FB<AB> 
BO<44> 
AI<Ta> 
C7<ar> 
C7<CD> 


C7<aA> 


C7<47> 
C7<D8> 


C7<1D> 
BU<aE> 


32<ES> 
32<62> 


32<4D> 
aR<B1> 


@2<45> 
B2<F6> 


28<32> 
32<9C> 
FB<DB> 


F3<C5> 
BS<IF> 
BB<CE> 


FF<67> 


20° 9C> 
BS<CC> 
FB<CH> 


CB<AB> 
20<52> 
AB93> 
EI<SA> 
B9<57> 
B6<FD> 
AB<Aa> 
ZI<IE> 
C5SA> 
C9<a3> 
AA<CB> 
@5<29> 
AIZF> 
IISE> 


52 


TURBO-BASIC 


85 99 85 05 18 98 65%41> 29 7F 2@ 18 C2 BD BA<#1> DS 4C A9 E9 A& D4 4C<62> 

85 AT 69 7A 88 28 FI<6Q> 1a F2 AS aa Fa 18 28<C9> ER 68 68 BA 48 88 SKEZ> 
OD18:E7 28 A9 85 69 80 AC FEA> E4 20 GE 69 63 68 74<95> FC EB 68 4C 84 E9 AXEF> 
AB 48 AC CF C7 E& AXSIı> 63 &F 6D 78 69 &C 6%FO> 20 FD E& E6& D4 D@ DS<A7> 

68 A4 9C AC 6D CS BKEI> 72 62 61 72 08 60 ASB1> DS AC IC E7 A9 17 20<26> 

DE 997 08 DS CB CA 9B<76> na 00 20 ES Ci 28 BXx6C> E9 38 AS 86 ES 84 0845> 

FS C6 98 aC Fi CB BA<26> 2@ 2A 2A ZA 28 4D SS<D9> A9 EI A9 AD 20 AF ERXCS> 

80 DS C8 CB B9 Bı DE<ZD> AC 4C 28 2A 2A 2A BRXBE> AS 87 ES B5 28 A9 EXB9> 

@@ DS CB CA FB DO FS<47> 9D CO 84 AC 49 53 D4<C7> BE? 02 D8 85 EO CH B%BA> 

FB 4C 38 C9 28 28 CR<89> 45 4E 54 45 D2 GF A3<F5> DS 85 E1 98 48 AB BRXOC> 

25 48 2B 00 E4 49 6E<SD> 4E D4 16 4£ 45 D7 18<74> E® 18 67 BI 85 E2 AZ<AC> 

65 67 65 72 28 SC 3@<3D> ar 41 CA 19 53 41 S6<18> 20 FF C3 AB 80 Bi ER<6D> 

6F 64 65 72 20 SE 36<87> 34 43 53 41 56 05 I%73> AB CB C4 E2 DB F7 68<3A> 

35 33 35 80 68 AB AXCE> AC AF 41 CA 37 45 52<X68> AF 1B AC 21 ES AZ SSB1> 

85 D4 85 DS A9 89 IKAC> ar D2 53 2A CC SS 52<D1> A2 BB 2C A2 BA 2C A2<BB> 

DB AS D4 99 BI DE A%XB7> AE 55 CD 56 44 45 CO<ZE> 20 A7 ET EB A9 84 2C<8C> , 

99 82 D8 CB AC E4 CB<34> 44 55 4D DO SB 54 S2<an> 85 4C 36 EB A2 89 2C<20> 

00 20 F3 EI C& PB AB<CcE> 43 C5 86 54 AF AB 4%3I5> 29 2C A2 49 28 88 EXFS> 

B9 00 DE 10 67 C9 BE<DS> 20 AS 28 15 Ci AS 92<88> Aa 20 A? E9 AT 98 20<35> 
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as<aA> 
@3<47> 
ID<EB> 
20<67> 
BISSCH 
C1<26> 
27 IE > 
20<&D> 
92<C5> 
BE<AE> 
FICAL> 
AFSCA> 
Ca<63> 
03<23> 
78<95> 
AC<Aas> 
10<21> 
9O<25> 
AISBR> 
Eö<FO> 
AB<BA> 
20<DA> 
9639 > 
23<70> 
3O<16> 
15<40> 
22°6C> 
CF<42> 
C7<8a> 
TF<EB> 
FS<DO> 
PO<CER> 
AS<AS> 
82<7A> 
29<°3C> 
B0<D7> 
CO69> 
Ba<91> 
Ba<CS> 
BA<FB> 
D8<29> 
83<67> 
ID<AB> 
A975» 
AF<DI? 
200E> 
EA<28> 
DA<ER> 
ZU<4E> 
EF<9O> 
IC<BF> 
CF<3S> 
Qa<Aa> 
ACKB6> 
22<13> 
@7<AB> 
03<94> 
AD<BA> 
C9<CS> 
SB<ır> 
02<83> 
B1C39> 
CIAB> 
CraB> 
CHZE> 
C9B4> 
ACCEB> 
F&<92> 
B2XAE> 
ABSI1> 
ARCBB> 
1F<SE> 
FS<BE> 


AB 20<35> 
88 Anca1> 
AB AB<EI> 
2C A9<98> 
AB CB<AB> 
24 D2<FF> 
ca F5<68> 
20 E6XAE> 
8A J1<Fa> 
85 AB<SE> 
C6 D3<78> 
FS 85<B1> 
D& ASO2> 
Da C593> 


ZIBB:D5 96 04 ns 06 85 
2190:87 85 D7 AQ 00 B1 
2198:D4 C8 Bi D6 ES DS BO 09<AD> 
Z1AQ:CB CB CB DO F@ E6 D7 DR<9S> 
Z1A8:EC DB 97 88 Bi D6 CS D4<7B> 
Z1BQ:F@ 12 20 4A F& 20 00 EA<sa> 

66 


Z1B8:5A SITE» 
D6c3a> 
Z1CB:AA ABSB9> 


21D®:BE @8 DC B7 9® DD 18 AF<ED> 
21D8:20 4A F& 20 @0 E4 AC 61<06> 
Z1EB:62 65 6C 20 66 65 68 6C<3D> 
ZıEt 4 00 60 AS AB A& AC 85<97> 
Z21F@:D4 86 DS AS 86 85 D6 ASC39> 
Z1F8:87 85 D7 AB 08 CB CE BiI<Ss> 
2200:D6 CS D4 CB BI D6 ES DKFIS> 
Da<9@> 
D&<BB> 
= 9337> 
2220:88 Bi D6 85 92 60 A? ARSB> 
2228:91 AB CB Bi AB AA BD BR<DC> 
2230:DC 91 AR AD 05 BD 0@ DD<DE> 
2239:91 AB 19 03 20 37 F& AB<aB> 
18<81> 
BI<EA> 
F&<C7> 
CISFB> 
2U<FD> 
2022 
2270:65 68 6C 74 80 AC NS F6<72> 
2270:20 09 Ea 45 58 49 54 20<44> 
2280:6F 68 6E 63 20 2E 2E 2E<A> 
2280:00 AC AS F& 20 08 E4 AC<AB> 
2290:4F AF 50 20 66 45 68 6C<1D> 
2298:74 0@ AC AS F& 20 @@ EAcAE> 
22HQ:55 4E 54 49 AC 20 b6 6C6> 
22AU:50) 6C 74 00 AC AS Fb 20<27> 
22E0:00 E4 57 45 4E 44 20 66<52> 
22B8:65 60 6C 74 00 AC AS F6cda> 
22C0:A6& 8D FB 25 AS BC 20 AE<DO> 
22C8:F6 20 09 EA 45 AE 44 ARC7E> 
2200:46 20 66 65 68 6C 74 BR<DE> 
22D8:AD 02 Bi SC AA 88 Bı 8C<28> 
22E0:89 8C 86 BD BA DB DD sR<x10> 
AZ 2BGE> 
65 bE<AC> 
65 72<F2> 
6F 6D697> 
74 65<B1> 
61 8DI<C8> 
z1ı 85<0B> 
IF AA<D7> 
20 EF<65> 
1E 1E<E2> 
AS ARKSS> 
BE<BE> 
FBX63> 
2B<Ca> 
DF<E9> 
18<28> 
AS<BB> 
C9%67> 
CHKEI> 
c8<20> 
ARSCH 
c2<1B> 
99 8321> 
A? 54<D6> 
86 DAES> 
44 8D<96> 
84 AXKE6> 
8D Sa<an> 
25C8:03 A? @4 8D 55 03 A9 @ucss> 
2300:8D 5A 83 A9 30 8D SB 0%SA> 
2308:A9 085 20 BF FB AB FB 20<F7> 

= ARCCR> 
ES<DE> 
B7<AS> 
FR<a7> 
2400:A4 89 20 ES FB A9 HF BIXBCH 


BEHESEESE 


„> 
© 


Listing 1. Turbo-Basic-Compiler (Schluß) 


2488:29 FE 20 ca aa 
2490:A7 04 AZ 88 20 
2498: FF 91 AB CB 91 
24AB:C8 91 AB AS B1 
Z4AB:A9 00 20 84 E9 
24B0:A9 E9 20 Fi C4 
24B8:03 20 FF CI A9 
24C0:C8 91 AB CB A9 
24C8:6@ 00 DE FF DF 
24D0:F7 OF FA BD 20 
2408:21 AA EA Cı EA 
24E0:F0 EA EE EB EE 
24E8:EC B4 EC 87 EF 
24F®:EF EB ED 57 21 
24F8:ED BF ED DE ED 
2500:ED 7D ED 54 C9 
2508:FA A2 ED 66 FA 
2518:ED 7B ED Ci CA 
2S18:EF CE C7 2D F7 
2520:F8 ED F@ F4 ED 
2528:EE 1E EE FF ED 
2530:EE 6F Fi 96 Fi 
2938:Fl 69 Fi 96 Fi 
2540:ED 47 ED B& EA 
2548:F9 BE FA 07 EF 
2550:EF 36 EF 380 EF 
2558: FB CI EF CS EF 
2560:EE 78 EE 12 EE 
2568:FC 98 FC 98 FC 
2570: FC 92 FC 95 FC 
2578:F® Bi EC AB EC 
2580:00 20 90 00 00 


2599:00 20 20 20 00 
2590:00 DU 00 ua om 
2590:00 20 00 00 8m 
25AB: 00 00 90 00 &m 
Z5AG:00 00 am aa 00 
25E0:00 20 DO aa @o 
25B8:00 20 20 om @Q 
25C0:00 00 20 2a 0® 
25C8:00 20 am aa 20 
25D0:F1 BB FI CF Fi 
25DG:EC 77 EB 96 EB 
2SEG: FE 55 FF OA FE 
2SEB:EA 6B FF 51 EB 
25FO:FE 86 FE 35 FE 
2SFO:ER 10 FE 2C FE 
2600: FE 06 FD 98 EC 
26B8:F2 76 F2 96 F2 
2610:F2 AB F2 SB FS 
2618:Fl 05 F2 17 F2 
2620: F2 FS EA 
2 Ds FZ 
2638: F2 EC F2 
2638: FB 3a F6 
2640:F4 6F F6 D9 ER 
2648:F4 4A FA 99 EC 
2650:F3 07 E9 DD CS 
2658: F5 51 21 00 FS 
2660: FS 1E FS 12 FS 
2668:F5 C7 FZ 60 F2 

DE FS 

14 F6 

16 Fa 

25 FB 

7D F2 

aB F2 

96 FF 

Es Fi 
Z6BO:Fi 1B 07 34 FZ 
26B8:F1 22 F2 03 EC 
26C0:F2 20 22 20 98 
26C8:00 22 00 00 80 


Laenge 9933 Bytes 


BEGESSSSSESSTHEISESHNABTHEBTEERBENGETRSEBASIENSBIABBESBIAHH 


IBC6E> 
ASSOI> 
AB<ar> 
EF<26> 
AE<1E> 
6D<65> 
63<BA> 
2F<AC> 
21<97> 
AE<Q7> 
@C<a3> 
ZU<BA> 
E4<1B> 
6F<S8> 
Bn<aa> 
1@<11> 
60L3B> 
AIS1E> 
BOSSE> 
ABSCCH 
ZW<Ca> 
AIEF> 
AB<AS> 
ABSTR> 
ED<75> 
DD<GE> 
A2<EC> 
B7<FB> 
ZB<A1> 
C&<38> 
86<08> 
IESBR> 
BA<6B> 
AB<FE> 
28<91> 
BssE1> 
Bi<c1> 
@6<2C> 
ac<22> 
89<89> 
33<B2> 
I5CAS> 
AE<2a> 
SI<9A> 
53<37> 
B6CBB> 
aaca2> 
AOSCA> 
@a<D2> 
BR<DA> 
BRSE2> 
BOSEA> 
A<E2> 
BR<FA> 
OR<a2> 
aa<an> 
ES<DA> 
SB<D7> 
BASER> 
D2<B7> 
17<F2> 
ARSOD> 
BE<99> 
BR<EI> 
BASTF> 
FO<2F> 
BEEI> 
13CD4> 
FSSTE> 
02<11> 
AC<AR> 
21<86> 
A<B1> 
06<79> 
7509> 
24483> 
D&<89> 
AB<2F> 
SEC 
AFSAC» 
73<0R> 
IDSEF> 
@2<92> 
AR<BE> 
DB<F&> 
EIXAE> 
46<DD> 
0ncas> 
am<ı1a> 


Eon) 


85 


2068: 98 
0070: 22 
@078:D3 
0980: 68 


@1B8:6C 
@108:21 


B1AB:F® 
| Q1A8:D8 
21B0:20 


B1EB:BD 
B1EB:A9 


Listing 2. Turbo-Basic-Compiler-Runtime-Pal 


TABARRTAARRSANGHEBSEHSASES 


gaR3Ha88 


Es 
DD 
E77 


“8 


14:6:3:4:3°7:5:5 2777 


@R<ZE> 
BA<EF> 
D&<c2> 
6C<C2> 
ZO<BA> 
IEaS> 
20<E2> 
EA<A6> 
ARSDS> 
BR<EF> 
AC<BE> 
R<AA> 
ZA<61> 
00<73> 
Q1<55> 
D3<57> 
DA<BE> 
Q1<as> 
BA<FC> 
Da<Da> 
2IOD> 
DS<6C> 
@9<aı> 
DSCBS> 
DA<SF> 
AR<BE> 
92<F1> 
77<C1> 
A8<39> 
aD<DD> 
21<C2> 
D3<47> 
BB<ZB> 
OXE2> 
@3<25> 
FB<DA> 
ZR<Ccı> 
8S<CBR> 
BD<FS> 
BA<ZE> 
FOSAB> 
Da<a9> 
au<an> 
N<FB> 
B1<28> 
D@<92> 
80<87> 
FO<A7> 
BB<CC> 
C8<SD> 
E6<57> 
BC<AB> 
CAsa7> 
D3<D1> 
EE<SS> 
DS<BE> 
S1<6R> 
Da<za> 
Z1<9@> 
FE<73> 
FF<6F> 
80<19> 
ARLEB> 
B8<ED> 
AISSB> 
ARSF> 
BD<7a> 
AB<ZB> 
BD<R3> 
B6<IE> 
A2<TA> 
BB<C6> 
AFCF2> 
IB<BA> 
B4<92> 
FA<BR> 
D3<87> 


FE<CH>, 


1O<BE> 
ID<95> 
M<BS> 
20<06> 
DA<AB> 
ID<CR> 
BxEB> 
E6CBB> 
9D<07> 
20<54> 
ABSDA> 


@2ce:0@ 
2208:D& 


2288 
geeggssggg 
I3BINBIERZAILZFLE TEENS 


GEBSSEOSSERGESSERD 


Bi 


1 
7 
65 
8A 
98 
85 
2 
As 


a6 
c8 
D® 
1 

en 
oc 
aa 
.] 
a 
FS 
FT 
2E 
29 
46 
9a 
6 
as 
FT 

ss 
se 
[1 
an 
9 
Au 
an 
9@ 
AB 
9a 
a8 
E73 
6 
DS 
8s 
Es 
7F 
7F 

Aa 
na 

As 
Aa 
as 
[2 
ce 
F@ 
as 
84 
Es 
€2 
As 
Er 

[23 
[33 
as 
27 
Es 
D7 

05 
D8 
D6& 
eo 

38 
D8 
[23 
Ds 
27 

98 
85 
[23 
D5 
Az 
05 
88 
28 
Er 
D5 
Ds 

27 

297 

D8 

D8 

05 

D7 

Da 

cs, 

6 

c 

oe 

85 

ec 


i 


A 


& 
\ 
: 


ERSSSBBHBEESEENEE 


[52 


TRZBENREBESSESNIZRBREBRESERE 


BATREISBHLRAHBSSHASBARRUHGRTBREREAHGFAANNER 


BEBSABNTIERERSITEBSHEARETER 


SEBFERBSIKIBRAEBEER 


BRIHPAHRRRASRSTARSRELFNBSUARTFARRHRÄTBAFRERTNSEDTANTEIBERFERSE 


eo 


BEABINTEETSTNIHSEISAERSSTBTFEARESENSSERTTHETTESETTTETSEIGTÄRSEBEBBSBBSB 


a853 


BIARBINFESBHTBRTZEFITENRSHAHBBARRSRHAFLTABTITETESTEIFEFTARBEITIARTETTATREBErFAaRETFRARER 


F1<Ba> 
DE<SC>H 
BI<FE> 
AFCAS> 
10<D1> 
EICEC> 
U<F2> 
BFH) 
F2<aD> 
60<39> 
1BCB8> 
FROC> 
6 1A> 
46<24> 
90a7> 
FR<36> 
C8<61> 
87<18> 
A6<C3> 
6926 
69<D3> 
46659) 
SIER> 
EIAS> 
A6£69> 
6911> 
A6<2A> 
SI<BL> 
D5C79> 
AR<B2> 
03<92> 
AICEF> 
6O<SA> 
E@<17> 
D4<57> 
ASDS> 
ASCaS> 
ASC26> 
AS<CS> 
ASCFD> 
AS<CO> 
Ac<c9> 
S6<SB> 
DE<cS> 
Ba<D9> 
E2<Ca> 
EISAE> 
BXFI> 
B5<B1> 
E4<27> 
E2<Br> 
E1<B9> 
18<Ac> 
DE<AB> 
EI<I@> 
Da<aa> 
16<E9> 
DB<1S> 
D6<62> 
EC<IE> 
DRE2> 
D7<AS> 
E2<zA> 
DIOB> 
DA<6B> 
ESCAZ> 
D7<85> 
DSCAB> 
Da<D9> 
6D<A9> 
Da<16> 
A586) 
aR<BE> 
AB<SE> 
0957> 
D5<27> 
BO<cB> 
D5<27> 
D7<09> 
1O<ER> 
DB<ECH 
DIEB> 
BO<A6> 
EI<21> 
EF<D®O> 
EF<Da> 


Beginn: Listing 2 Turbo-Basic-Compiler-Runtime-Paket (Länge: 10876 Byte) 


8748:C3 
0750: 51 
0758185 
8760:D4 
0768:85 
0770:29 
8778:C7 
8780: 28 


98708:05 


BEBSSSETREBETEBBANASATIHAABaN 


05 


Fo 


BSBAABUEES 


E4 


38358303 
BRSRanTASABRE88 


BBRERNRE 


[J 


BEISEARTR 


a 


BIGHNEMESIBEFEHERSR 


ER<OB> 
@5<2D> 
AD<78> 
BSCSCH 
BSCAE> 
85<99> 
BSaE> 
DA<59> 
QAScAs> 
BD<6r> 
ASC66> 
an<s1> 
AS<CB> 
E962> 
D9<S1> 
E6SEL> 
E2<31> 
BS<EF> 
BD<SD> 
A2<7C> 
8513> 
E2<Aa> 
D7<C1> 
a5<15> 
B6<45> 
@S<9C> 
BD<7B> 
axcma> 
AZ<AD> 
10CE9> 
QO<C6> 
TFeAA> 
DE<DD> 
AR<61> 
29<82> 
85<7A> 
EF<62> 
EA<22> 
DA<IB> 
Bs<5A> 
20<D1> 
ESC16> 
B1<95> 
B4<23> 
19%71> 
BO<BE> 
32<11> 
60<2C> 
“1<08> 
66<27> 
12<DC> 
99SF7> 
FCSDF> 
EC<DE> 
26<39> 
2OL1S> 
A9<27> 
AS<SE> 
BO<SE> 
DSCHF> 
6F<B1> 
CA<ca> 
BR<EF> 
20<5a> 
BSCBE> 
85<41> 
ZU 
1Q<BA> 
BOR<EE> 
05<20> 
FO<1B> 
CA<DE> 
AR<BD> 
1SC7F> 
ATSER> 
BE<DC> 
@9<SCH 
@a<sa> 
3F<11> 
95L36> 
FE<BA> 
BE<EE> 
6R<a9> 
9O73> 
BF<CH» 
@8<78> 
SO<BA> 
BFEBA> 
9957> 


TURBO-BASIC 


99 99 3F 78 53 98 16<28> 08 89 86 65 BA CS E@XxBF> @E08:4@ 9@ CF F@ D97 C9 02 Fu<23> 
38 60 A9 04 24 DA 10<06> Ch AS BB 69 07 85 BBCAB> BEIB:45 BO 42 AS D& 29 FO an<Fa> 
A9 02 DO 02 A9 Qi axıc> 82 E6 89 E& D4 D@ @2<04> GEIG:BS D4 4A AR 65 DA 85 DA<33> 
AS DA 29 7F 85 D4 A6ca2> DS AS D6 DB 82 C& D7<89> GE2@:AS D6 29 BF A& D7 EB S@cBa> 
BD 14 C6 85 EB BD 15<BA> D& 4C D2 C7 48 28 68<58> GE28:65 D4 85 D4 98 29 OF AACOB> 
85 Ei BD 16 C6 85 E2<cı> AB On BA 2A 2A 29 @us> QES®:BD Al CB 65 D4 85 D4 BI<BB> 
17 C6 85 E3 BD 18 Cöc4E> 98 SD 5® CB 60 18 18<18> GES8:AB CB 65 DS 85 D5 98 2%u5> 
E& BD 19 C6 85 ES 2Ucar> 18 30 3® 60 68 C® Ca<D7> GEAB:F@ FO 12 An An an AA AScAs> 
ES BQ CS AS DA 29 7F<24> C® 18 ©C CO CO 28 14<FF> @E48:D4 7D 8D CB 85 Da AS DacA1l> 
E9 48 3@ 24 09 84 1B<SE> 4 OA ON 14 14 28 28 28<57> QE30:7D BE CB 85 D5 40 CO @7<6E> 
AA BS DS 85 Fi 29 18<75> 28 28 28 14 28 00 @8<7D> @E58:B@ FB AS D7 29 F@ AN BSAF> 
02 A9 82 18 65 Fi 29<CB> @2 05 02 05 @2 85 B1<C6> BE6B:D4 An An 65 DS 85 D4 ASC7D> 
65 F@ 85 FO 86 FI AXIE> 91 00 20 05 02 Gm QI<Ea> GE6B:D7 29 BF A6 DB EB SB u5csa> 
95 DS CA 10 FB 20 ECc14> @7 00 FO FC FE 04 @2<D2> @E78:D4 65 D4 B9 81 CB 65 DA<Fa> 
46 F@ 90 89 20 B@ C2<6D> 38 60 AS 57 29 @F An<92> QE78:85 D4 B9 88 CB 65 DS 85<06> 
DD C5 28 CB CE 2@ E8<@2> @@ 85 DF AS BA On 2 1E> GEBB:D5 A4 D& DO A7 60 @@ 1E<HE> 
20 08 EA BG 83 AP A&cF9> aA 26 DF 65 8A 78 @2<DF> GE00:2@ 30 4® 5® 60 WG 27 AE<24> 
F& AB CS 20 65 C2 20<03> DF @A 85 DE 26 DF BI<as> E90: 75 90 C3 EA EB 05 DB 07<37> 
C3 20 OB E4 46 FO MXZE> C8 85 E® C5 8A F@ DACE> GEIG:BB OB AB OF 88 15 7@ 17<C0> 
18 AS DA FO 04 47 BQ<1a> D7 BC B1 CB 84 EZ B%B6> 1B 40 IF 20 25 00 64<DB> 
D4 60 ED 03 55 14 9%E2> C8 8D C® 85 ED 71 CR<9B> 2C 9® F4 SB BC 20 Bacsa> 
3E ®1 6@ 44 27 52 BE<7S> Ei 4A an an An AA FR<BE> aa 99 91 @1 @1 @2 BX<EE> 
81 75 43 55 SF 07 96<5B> @6 DE 26 DF CA D® F%D2> @5 @@ EA RD FF 18 AC<BS> 
62 39 BF 64 59 64 B8<26> AS DE 65 58 85 DE ASc27> €9 10 60 38 68 20 BR<C6> 
40 O1 57 07 96 72 ABcAs> 65 39 85 DF AS 89 BKAs> AS Da FO FS AS E@ FOC96> 
20 00 00 aa SF @1 74<ED> AS 68 85 ES A4 EZ Ba<Ba> 45 D4 29 80 85 EE AXAC> 
29 25 A9 00 85 F@ B5<EB> F@ ©C 39 91 CB 85 ED<SD> 29 7F 85 ED AS D4 29<C9> 
AS D4 29 7F C9 4@ 3@<De> E& 66 E3 88 DB F9 A569) 38 E9 40 38 65 E@ 3%72> 
\S D4 29 80 85 F@ E6c27> D@ BE AS ES CS EI BRcc6> @5 EE AB 20 OB EB BSCFD> 
A9 7F 25 DA 85 D4 A2<S3> Ab E2 DB BA AS CB 20<A9> 85 DB 85 DC 85 DD 8%xB1> 
Am CS 20 Sı CA 28 E&cBs> C8 80 CB 85 18 6 BC<67> 85 DF 84 D4 Am 97 46cQ1> 
20 08 E& BO SB A9 @B<Sı> C8 84 E4 BD 98 CB BS<cAa> 90 3® 18 AS DE 77 EE<BI> 
14 AG CS 20 65 C2 BQ<2A> AS CB @D C® @5 4D Ca<sE> 85 DE AS DD 79 E& 20<26> 
20 Si CI 20 @B E4 BOcaD> 99 CB 85 A& EE aA Ca<aD> DD AS DC 79 DE 28 8xA1> 
As Fi F@ 13 A2 85 BD<7E> FC 88 10 FA As EA AD<IB> AS DB 79 D& 2@ 85 DB<AB> 
C5 95 E® CA 10 F& 2&ır> 05 97 Ca 85 A6 EE 38<87> DA 79 CE 20 u5 Da AScBa> 
C® AS F@ 05 D4 85 Da<6D> CA D@ FB 88 18 F3 1&<1C> 79 C6 20 85 D9 98 18<3a> 
FR F@ OD AZ 05 BD 2@cAr> 85 8A 98 DB FA 2@ JE<6R> 38 85 F@ @5 88 18 C7<cı> 
95 E@ CA 10 FE 20 SD<E9> B@ FS AS GE 85 86 Ax73> 87 46 E4 90 50 18 Asa» 
60 58 68 18 64 A9 @B<CR> 85 8D AD ES @2 E79 @6cEc> 79 EE 28 85 DD AS DE<BI> 
Fi AS D4 30 FA F@ Fa<co> E7 AD E6 @2 E9 90 B5c51> E& 28 85 DC AS DB 7%00> 
3F F@ 85 18 69 @1 85<22> 18 AS 8C 69 83 85 SC<DC> 2@ 85 DB AS DA 79 D&<19> 
A9 06 BS EF A9 SF 8%83> @2 E6 8D C5 E7 AS BI<oF> 85 DA AS D9 79 CE 2%61> 
29 E8 C2 2@ B@ C2 2&a1> EB 98 05 4C 61 FA A6cc9> D7 AS DS 79 C6 28 Bx<F1> 
C3 E6 D5 20 CB c@ 2@<c1> A4 E3 20 AB CA F@ BSCAD> 88 18 CE 38 @5 F@ @sc2C> 
C3 2@ GB E4 AS D4 SD<cH> SC CA 2@ 9D CA 28 P6cıB> 10 07 AG 87.46 ES 9ucsa> 
@5 AS DS 8D ED 05 AS<BB> 98 3@ @B 2@ AB CA DR<SD> 18 AS DC 77 EE 20 8%47> 
8D EE 85 AS D7 8D EF<CB> 29 9D CA AC 99 C9 28<92> AS DB 79 E6 20 85 DE<7E> 
AS DB ED FO 95 AS D%«20> CA 98 AB 08 91 SC BrcBs> DA 79 DE 20 85 Da AScan> 
Fi 05 20 BQ C2 2@ 2A<GE> BA BA CB 91 BC As EXFS> 79 D& 2@ 85 D9 AS D&CDF> 
20 6D ES 20 4E C3 20<40> ED 2@ 8D CA Ca EI BR<B2> CE 2@ 85 DB AS D7 7%AB> 
C@ 2@ ıB C7 AS Da F@xEr> 28 AB CA DO 86 2@ 90<7B> 28 83 D7 88 18 CE sac11> 
2@ 4E C3 20 DI C® C6<a9> 4C BD C9 20 96 CA PEXAB> FO @5 88 18 C7 AQ @7<1e> 
19 C2 30 83 2@ 2D Cx<aa> 22 91 SC 8A BB 11 8C<58> EZ 90 38 18 AS DB 79<FD> 
Fi FO OF an 18 65 DA<aB> SC A4 BA CB Ca E@ BRcS6> 20 85 DB AS DA 79 E&<79> 
1F 83 D4 46 Fi 98 8370> 28 &0 CA 20 7C CA ABCa4> 85 DA AS D9 79 DE 2&CIF> 
67 C7 18 68 AC 89 E9cAB> B1 8C 29 87 CS ED C&cE6> 09 AS DB 79 D6 28 85639) 
D4 29 7F C9 OF 90 FX37> BC E5 E3 90 0B AB BR<7E> AS D7 79 CE 2@ 85 D7<55> 
BO C2 FB AZ 00 AB ma<aa> SC 89 88 91 8C 4C 74<BC> D6 79 C6 28 85 D6 88<B1> 
AS D9 65 ES 85 D9 AScBB> 28 &E CA Aa BA BR Ca<19> CE 3a 85 FO 05 88 1@21> 
65 E4 85 DB AS D7 &5C7E> BQ 20 2® 6E CA 2@ 70<62> AB 07 36 Ei 90 3® 18<D4> 
85 D7 AS D6 65 E2 BES> AB a1 Bi 8C 29 87 CHa6> DA 79 EE 20 85 Da ASB1> 
a5 DS 65 Eı 83 03 BAcEz> C8 B1 8C ES E35 98 @&6D> 79 E6 20 85 D9 AS DE<EB> 
20 AA 88 D® DR DB BA<6B> @@ Bi 8C 27 7F 18 D418> DE 2@ 85 DB AS D7 79<20> 
1A AS DB 85 D9 AS D7<C6> 60 CA AB BI Bi BC 29<B2> 20 85 07 AS D& 79 CE<SCH 
DB AS D& 85 D7 AS DKAE> AA Ca Bi SC AB 2@ B0<3@> 85 D6 AS DS 79 C& 2IXFE> 
D& 86 D5 AS DS C9 10cS4> 20 8D CA 864 ED 84 EXIF> D5 88 10 CE 30 85 F@caB» 
31 E6 D4 AS DS C9 19<51> AS BC E9 @5 85 BC B&<B9> 88 18 07 AC EB CI IKEF> 
27 AR 66 D& 66 D7 66<BA> C& 8D C5 GE DB 86 AscıB> 38 6@ AS EB FO FA ASB4> 
66 D9 AN 66 D6& 66 D7<0B> C5 @F F@ 15 AB @@ Bica2> FQ FA 45 E0 29 80 B5c32> 
DB 66 D9 An 56 D& A6cıB) 10 B6 38 BA E6 BA 1BC2F> #5 E@ 29 7F 85 EB AScB2> 
66 DB 66 D9 4A 56 DE<9D> DE 65 EI 85 DE 9® @2<44> 29 7F 38 ES E® 18 6%27> 
07 66 DB 66 D9 85 DSCIE> @D7@:E6 DF 68 C& BA 58 AS DE<EZ> 38 DE @5 EE AG 28 QB<7ı> 
C6 D4 A9 00 06 D7 26<56> 9078:E5 Ei 85 DE BQ 82 C& DF<DB> 85 E6 85 E7 85 EB 85C30) 
26 D7 26 D6 24 DS 2A<BA> OD80:60 AB @G Bi BC 29 7F BSH1> 85 EA 85 EB 85 DA B4<DC> 
D9 26 DB 26 D7 26 D&car> @DB8:E3 CB BI BC AA AA AA 8%86> AD 00 AS EB DI Ch 2U<SF> 
DS 2A 06 D9 26 DB 26<F1> ODIG:ED 60 EA EA EB 9@ @5 A2<19> 28 AS Ei D9 CE 28 DOXAF> 
26 D6 26 DS 2A 86 DAIB> @D98:00 CB 6B CA 1@ @S A& Eacı9> AS E2 09 D6 20 DO IMFC> 
08 26 D7 26 D& 26 DS<C1> @DAB:88 6@ Bi DE SD CB @5 ID<DE> ES D9 DE 20 DO 13 AScaa> 
60 60 AS BB DO FB AS<62> @DAB:CB @5 F1 DE 60 Bi DE 1DCBE> D9 E6 20 DM @C AS Exc66> 
@5 D7 F@ FS AB 00 84<9D> @DB@:C® 05 SD CO 85 FB 84 AD<Sa> EE 20 D® 85 AZ Bm Aaccac> 
84 DC Bi D4 10 @2 C6c92> @DBB:CE 05 6@ AD CH 85 F@ BSFS> EB 9@ 2A AS ES F9 EE<FI> 
20 54 CB an UA 85 aC<B6> ODCO:AF 08 60 A9 BI 6B 28 ERC77> 85 ES AS E& FF E6 2001> 
08 2A 06 8 2A 6D FAcSa> @DCB:F7 AD FE 82 48 BE FE @2<DF> Ea AS ES F9 DE 28 BIS 
85 8D 2@ 9E CB BB D2<49> GDDE:A9 7D 2 FA ED 68 BD FE<AS> AS E2 F9 D6 20 85 EZ<6B> 
08 84 DD As DC Bi BC<aB> ODD8:02 &M L9 FF y@ @2 CH S@c28> Ei F9 CE 2@ 85 E1 ASCCD> 
DB 85 DA AG ED AA EscFi> ADEB:BA 69 @B 85 DA &B 78 279C> F9 Ch 20 85 E@ 26 DSCHE> 
DA Bi DE SD CO 85 F@<16> GDEB:F@ AN 85 D4 aA An 65 DacDs> CO 98 DB 9E AB 00 AS<aR> 
@B18:05 1D CE 85 71 DE C& DD<IE> GDF@:85 D4 98 29 @F A& D& ER<a2> D9 C6 2@ DO 28 AS E2<94> 
@B20:F® 87 20 8D CA CA Ei 9@<7D> @DFE:S@ 65 D4 85 DA &@ A2 MRC7B> CE 2@ Da 21 AS E3 DICH 
20 62 CA E& DC AS DCia6> BEBG:AS DS AS D4 86 DS 38 E6E> 20 D@ 1A AS E4 D9 DE<CD> 
Listing 2. Turbo-Basic-Compiler-Runtime-Paket (Fortsetzung) 
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Ari Be Fu a 


TURBO-BASIC h 


D® 13 AS ES D9 E& 2&<2F> 85 E2 AS D7 85 E35 AXxE#> CB Bl FC 85 D9 68 85<a5> 

@C AS Es D9 EE 20 DR<F5> 85 E4 AS D9 89 ES A9XSa> 84 FD AB 98 Bi FC 9D<ES> 

A2 @1 4C 92 EB 90 2A<0C> 85 D4 85 DS 85 D6 85ce> De C8 B1 FC 9D 90 Dx12> 

E6 F9 EE 20 85 E6 AKXE6> 85 DE 85 D9 68 68 8%B4> Bi FC 9D 88 Da C& BI<E6> 

F9 E6 28 85 E5 AS EA6E> 68 85 FD E& FC D@ @2<F9> ID @@ DE CB Bi FC 90<55> 

DE 2® 85 E4 AS ES F9<CC> FD AZ 88 Aı FC F® @7<c8> DC CB BI FC 9D @8 DIXIF> 

2® 85 ES AS E2 FF CE<7@> 2@ Bl 21 4C 1E E9 AXxE4> 9D @® D9 A9 48 9D BncDB> 

85 E2 AS E1 F9 C6 28<CH> 48 AS FC 48 68 CO @XxSE> A9 0M 9D 20 DA 9D ma<77> 

EI 26 D6 C8 CO O8 DR<2C> FB 98 85 C3 DB AB @XcFc> 9D 80 DC 9D @& DD KX<SF> 

AO 0m AS E2 D9 C& 28<79> 93 8C FE 82 C9 88 D&x66> D5 A9 40 85 D4 A9 BR<1A> 

28 AS ES D9 CE 28 DXFS> 84 11 AZ FD 9A 68 85@2> D6 85 D7 85 DB 85 DICF> 

AS E4 D9 D& 20 DO 1A<16> 68 85 DS 48 AS D2 48<B9> 29 1A EC 86 DS 20 96<9A> 

ES D9 DE 28 D@ 15 AXF2> 82 85 D& AS'8T 85 D7<Sa> 2@ FC Fi A6 DS AC S1<92> 

D9 Es 28 Da ac AS E7<31> 98 Da SF AB @B CB CE<As> 85 FC 84 FD AG @@ Bi<cA> 

EE 2@ D@ 85 A2 02 AC<SA> D6 CS D2 C8 B1 D& EXx65> 85 E® C8 BI FC 85 E1<25> 

EB 9@ 2A AS E7 F9 EE<B2> Ba 07 Ca DB F@ E6 D7<2C> B1 FC 85 E2 CB B1 FC<AB> 

85 E7 AS E6 F9 E6 20<2A> EC 38 AS D6 E9 &% 8%77> ES CB BI FC 85 E4 C&<13> 

E6 AS ES F9 DE 20 8CE> 88 ®2 C& D7 BI D& BSC6> 1718:B1 FC 85 ES 6@ 85 FC 84@D> 

AS EA F9 D6 28 85 EA<96> 88 Bi D6 85 BA AS BC<7D> 1720:FD AQ OB AS EB 91 FC CH<S@> 

ES F9 CE 28 85 E3 AS<9F> BD SO @F AZ 8@ 86 BD<7F> Ei 91 FC CH AS E2 9I<FC> 
1180:E2 F9 C6 2® 85 EZ 26 C3.D® 84 A& 95 FO @5<60> ca AS ES 91 FC 08 AScc2> 
1188:C8 CO 08 DB JE AB 08 AS<cD> 42 F® 20 18 E9 FD 9B<358> 91 FC CB AS ES 91 FC<96> 
119W:ES DI C6 20 DB 28 AS EacSE> 65 68 6C 65 72 20 2I<EE> 28 77 EB 4C CE ED B&<BD> 
1198:D9 CE 2@ D® 21 AS ES DI<DE> aa AS C5 AQ 08 20 BI<7F> 48 20 77 EB 68 20 FR9F> 
11AB:D& 20 DB IA AS E& 09 DE<97> 20 18 EI 20 69 6E 20B3> A& DS 4C 51 EB 85 DA<An> 
11AB:2@ DB 15 AS E7 D9 E6 2813) 65 69 6C 65 20 00 ASc6S> DS AB 08 B1 D4 85 D&<EE> 
11B0:D® @C AS EB D9 EE 2@ D9<67> AA BB 2@ Bi EC 20 18<95> 07 E6 Da DO 82 E6 DXAF> 
11B8:05 AZ 05 AC 02 EB 9@ 2<ES> 1490:E9 28 28 24 80 38 AS D2<78> 1768:68 20 98 EC 4C B7 EC 2@<BS> 
11CB:AS E8 FI EE 20 85 EB ASCBS> 1498:E9 @2 48 AS DS E9 88 20<6B> 1770:13 CO 2@ Z1 FA A& 93 ASCSO> 
11CB:E7 F9 E6 20 85 E7 AS E6c52> 14AB:94 EA 6B 20 94 ER A9 29<DC> 1778:D4 9D 44 05 AS DS 9D ASCBF> 
28 85 E6 AS ES F%B7> 14A8:20 FA ED A9 00 85 95 20<5F> 1780:05 AS D6 ID 48 03 18 6509) 

85 ES AS E4 F9 CE<61> 1488:18 E9 7B 5@ 72 6F 67 72<FD> 1788:94 85 94 A5 D7 9D 49 @ScBr> 

E4 AS E3 F9 C6 28<EB> 14B8:61 6D &D 65 6E 64 65 20cm» 1790:05 D6 FO 05 A9 BB 4C Cix15> 

26 DB CH Ca @8 DKES> 1400:5A 2@ CA 6F 73 2C 20 D2<S3> 1798:EA 60 AC 61 FA 85 99 84<BA> 

Ba AS E4 D9 Ch 28<C5> 14C8:75 6E 28 6F 64 65 72 2&<2F> 17AQ:9A 18 65 98 AB AS 91 65CA1> 

a5 ES D9 CE 28 Da<aD> 14D0:CC 6F 61 64 20 SF OB A9<BA> CD E6 @2 98 89 Da EA<DF> 

E6 D9 D6 20 D@ 1mcıB> 14D8:48 8D BE @2 A7 @@ SD B&<S1> E5 82 90 92 Da ES asc11> 

D9 DE 28 D@ 15 ASCBB> 1460:@2 2@ DI 21 C9 44 F@ QB<7B> 84 GE SB AS 90 ES BE<SS> 

E& 20 D® BC AS EXFE> 14E8:C9 AC FO @A C9 52 DO E7<7C> 8C AS 91 ES BF 85 BD<AD> 

2@ D® @5 AZ @4 AC<2B> 14F®:4C 89 29 4C B& 28 2@ 18C50> 17C8:18 AS BE 65 97 85 88 6%42> 

90 ZA AS E9 F9 EE<BC> 14FB:E9 IB 46 69 6C 65 SE SIKER> 1708:99 85 BA 85 BE AS BF B5<E7> 

E97 AS EB F9 E6 20<34> 1500:6D 65 20 44 IA 88 2@ AAcCE> 1708:98 85 89 65 9A 85 GB 05C9E> 

AS E7 F9 DE 28 85%98> 15@8:F1 AG FF CB Bi FS C9 9B<7E> 17E®:8F AS GE 85 98 AS OF BS<CFS> 

E6 F9 D& 20 85 Eacas> 1S10:F® 29 C9 SA D@ FS CB BI<Da> 17E8:91 4C E1 21 29 OF @6 BAc2B> 

F9 CE 20 85 ES Ax71> 1518:F3 C9 9B DO F9 A9 ZE 91<a6> 17F0:06 BA 06 BA 86 BA 05 BACDB> 

C6 28 85 Es 26 D9SO> 1520:F3 CB A9 43 91 FS CB A9cCH> 17F8:A& 88 E® 85 90 @5 Al 29F1> 

1250:C8 C® 88 D® IE AS DS DR<SF> 91 F3 CB A9 a2 91 FS<FE> 1808:F5 9D C4 @2 68 AD 78 B&EA> 
1258:64 AO 0® AS E5 D9 Ch 28<9E> AS FS A& FA 28 53 FA<DE> 1889:8C 2C AB 08 SC 08 D2 AZ<IF> 
1268:D® 28 AS E6& D7 CE 2m Da<En> BB F97 CB B9 7F 85 9%ED> 1810:03 SE OF D2 86 SC A& BC<9E> 
1268:21 AS E7 D9 D& 2@ DB IM<Al> 05 88 D® F7 A9 44 80<69> 1818:E9 Q@& B@ E2 85 OC AS nacas> 
1270: AS E8 D9 DE 2@ D@ 13 Asus» 95 A9 SA BD BI 85 AC<EC> 1828:9D 00 D2 98 FO 87 EB EB<AS> 
09 E6 29 D@ ac AS En<Ew> ER 48 aa an an an ZE<CF> 1828:A5 89 9D 00 D2 AS Un. On<Aa6> 

EE 28 D® 85 AZ @5 Ac<a2> EA 68 29 OF 89 30 C%32> 1830:0A On BA 85 8C 9D @1 D2<24> 

EB 9@ 2A AS ER F9 EE<@9> 90 02 69 86 AC FA ED<BB> 1838:60 58 24 18 2@ BF ED AC<4E> 

85 ER AS E9 F9 E6 20<D4> 7@ 20 CA EA 8A 30 EXFS> 1848:8A ED 38 24 18 2@ C6 EI<75> 

E97 AS E8 F9 DE 20 8%D1> 1370:1® AA D@ F& AZ BO A7 @BcEa> 1848:A5 CB BD FB @2 A2 6B AXSE> 

AS E7 F9 D6 20 85 E7<BD> 1578:9D @@ D2 CA 18 FA 68 2&91> 1858:0C 9D An 05 A9 98 ID AB<S2> 

E6 F9 CE 20 85 E6 AKXIC> 158B:ER EE A9 OC 9D 42 85 2&cac> A 11 69 09 AC Ch EA<DS> 
12B®:E5 F9 C& 20 B5 ES 26 Dic36> 1588:AB 20 3@ @1 6@ AC SC E9ICBS> A9 06 20 C1 ER 68 ABCBE> 
12B8:C8 CO @8 D® FE AC EB Ci<A9> 92 E& 92 AS D4 9D OXxBr> F@ 49 IC AA AI @D Bacaa> 
12C8:36 DS CE C® @8 Da F7 FRxBB> AS DS 9D 2A DE AS D6<S1> 84 8A A2 21 AB @2 2@<DC> 
12C8:F4 F8 18 AS ES SD FS 20699> 54 DE AS D7 9D 7E DE<S6> FA A4C 4A EE 85 55 84<31> 
ES 8D Fa 20 AS E4 8%<39> D8 9D AB DE AS 09 90<FD> 86 54 68 85 54 98 F@<B2> 

2@ 65 E4 8D EC 2m Axcsr> DE 68 2@ BB C2 C& 9%<15> 4C 29 FS 20 F9 CA AS(23> 

ED E5 2@ 65 ES aD E4<65> 92 BD ®@ DE 85 D4 BD<1B> As 05 2® F4 60 20 BF<A9> 

AS E2 8D DD 20 65 E2X6C> DE 85 DS BD 54 DE 85<C9> 4C E1 ED 20 C& ED A2<aa> 

DC 2@ AS Ei 8D DS 20<2B> BD 7E DE 85 D7 BD AR6S> AA CB 20 Bi 21 AC S&<7F> 

Ei 8D D4 28 A9 00 80<26> 85 DB BD D2 DE 85 DY<ED> A900 85 93 A9 9B 2UCAs> 

20 69 88 80 CC 20 AXıF> C6& 92 A& 92 BD 08 DE<BY> 20 A& 93 AB E& 94 20<49> 

BD F2 28 7D F2 28 9D<27> E® BD ZA DE 85 Ei BD<A@> 21 4C 38 E9 28 C& ED<DB> 

20 BD EA 28 7D ER 20<D7> DE 85 EZ BD 7E DE 85%84> 60 85 95 86 88 20 #9cBA> 

E9 20 BD E2 20 7D E2x<05> BD AB DE 85 E4 BD D2<CC> AB 00 A& 88 AC aA EB<AS> 

9D Ei 2@ BD DA 20 7IxEs> 89 E35 68 A& 92 E& 92<D6> 88 20 81 EF AB 00 A&ıı> 

2@ 9D D9 2@ ED D2 2@&<FD> @@ DE 78 9D 2A DE sKxE1> 4C AN EB 86 88 AB 87<C7> 

D2 20 9D DI 2@ BD Ca<21> D3 2@ 13 CB A& DS AXxa8> 2C EE A6 88 4C 51 ER<A2> 

7D CA 2@ 9D C9 20 CH<ES> 9D @@ DE AS DS ID B8<B4> 1BEB:AQ OB AI O6 Ab 93 FD AUcAas> 
1348:D® C7 AD F4 20 6D F2 2&xAF> AS D6 9D 08 DA AS D7<F6> 18F@:03 A9 D4 9D 44 05 A9 @0<91> 
1548:8D F1 2® AD EC 2@ &D EA<72> @@ DB AS DB 9D @@ DC<55> 18F8:9D 45 @5 9D 49 05 98 AC<as> 
1590:2@ BD E9 2@ AD E4 28 6D<32> D9 9D 88 DD AS 11 F&x@2> 1980:C6 EA 86 93 85 88 84 BA<58> 
1358:E2 28 8D EI 2@ AD DC 289E> 68 AC 34 FE BD @0 DE<AE> 1998:A9 3 85 BC A& 93 AS BC<OF> 
1560:6D DA 20 8D D9 2@ AD DA<FD> D4 ED @@ D7 85 DS B0<74> 1910:9D 42 03 AS 88 9D an @3C26> 
1368:20 &D DZ 2@ 8D DI 2@ AD<C9> DA 85 D& BD 90 DB 8%19> 1918:A5 8A 9D 4B 85 AS DA 90<78> 
137@:CC 28 6D CA 2@ 8D C9 28a1> BD @® DC 85 DS BD Ba<cH> 1920:44 03 AS DS 9D 45 03 20<33> 
1378:A2 02 BD EF 2@ 7D EF 20<E7> 85 D7 60 BD 08 DE 8%47> 20 AB 2@ 2@ BA EF<F9> 
1388:9D EE 2@ BD E7 20 7D E7<SE> BD @8 D7 85 E1 BD @&cpa> @3 4C 38 E9 86 88<2E> 
1388:2@ 9D E6 2@ BD DF 2@ 7D<C3> 85 EZ BD 88 DB 85 Ex7C> A& 93 9D 42 03 2U<ES> 
1598:DF 20 9D DE 2@ BD D7 29<&D> @@ DC 85 Es BD @@ DD<26> 98 AB 0Q As BA AC<c2> 
1398:7D D7 2@ 9D D& 28 BD CF<7E> E5 68 85 FC 84 FD AXX6B> 86 88 84 BR AF 26<C4> 
13AB:2@ 7D CF 2@ 9D CE 28 BI<SS> Bi FC 85 D4 C8 Bi FC<cD> 2@ C6 EA BD 40 @%F8> 
13A8:C7 2@ 7D C7 2@ 9D C& 20<55> DS C8 Bi FC 85 D& 08<32> 03 A& 88 20 aA EB<S1> 
15B@:CA 19 C7 AS DS 85 EI AS@6> FC 85 07 CB Bi FC B5cAC> ED A4E 05 AG 08 A&xas> 
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TURBO-BASIC ) 


1968:B8A AC AA EB AC 29 FS AdcBı1> E& FZ A& BB AC 51 EBX61> 1F18:00 85 D7 68 AF SF 85 DA<C1> 
1970:95 9D 4E 83 98 DB FS AX18> 08 85 F2 F@ FS 29 44<Dc> ı1F28:AZ2 05 AD BA D2 29 FO C9%82> 
1978:88 9D A4C 05 AS 89 9D AIXAl> AC 97 Fi 20 34 Fi IS<FF> 1F28:AD BO F7 85 DA AD On D2<CA> 
1980:83 A9 25 AC C& EA A9 87<D5> FS 65 F2 85 F3 98 02<00> 1F20:29 @F C9 BA EB F7 85 DA<SS> 
1988:2@ C1 EA A2 08 AD BU AXFA> Fa AO 00 Bi F3 C9 9B<1a> 1F39:95 D4 CA DB ES AC EC C1<19> 
1990: 18 4C Bi ED A9 89 28 C1<09> 1C68:F@ 83 CB DO F7 AS FS A&<SS> 1F48:20 B® C2 28 SE F4 28 BE<85> 
1998:EA A9 CB 85 &A AZ BC AB<CCH 1070:F4 20 55 F4 A& 88 4C 74<AE> ı1F48:F2 4C Ci F4 AS DA 29 7F<77> 
19AB:08 AF 15 AC BI ED AI BRXDE> 1C78:FE AS D4 FO 04 49 88 85<1B> 9a 11 AA AI ORLa6> 
Ba 14 GA mA BA BR<EE> 28 1B EB AC FC Fi 20<1@> 82 A2 84 95 DS<1D> 

AA A? 00 85 94 85<6B> EB 4C GE F2 20 FS5 EA<S57> 4C EC C1 68 2IXEE> 

A4 C9 DO 82 E& CF 58X7C> 17 F2 28 B@ C2 4C FC<oc> D4 29 7F 38 EXIF> 

14 4C 3D EI A? 07 A2<A7> 2@ E® C2 AC BE F2 AR<aı> AA AF 00 EB BA<IF> 

Au 06 20 53 FA A2 7@&<8D> DO 84 A9 Dı Am 40 B%43> D& EB 90 F7 AS<21> 
19D8:A9 86 AB 08 20 44 EE 28<SA> 84 EB A7 00 85 E2 8%57> 38 E9 40 98 2D<DC> 
19D8:6F EF CO 88 FO OB 20 38<68> 85 E4 85 ES F@ 85 28<95> Ba D9 A9 00 AB<Sa> 
19EB:E9 AZ BO 20 F& ED AC 1%36> EC 28 DI C® B® IC 6%<73> D6 EB E® 84 D@<45> 
19EB:EF AZ 7@ AC CA EA AP 20<24> 5B EC 28 CB CO B® 13<AB> 18 17 AB F@ 14<22> 
19F8:2C AF 23 2C AF 24 20 AR6B> 2@ SB EC 28 @B E4 Bac<as> ED AB 81 B4 EI<CA> 
19FB:21 AZ 7@ 86 93 AB QM Bacya> 60 20 3B EC 20 &D E&<7C> 94 E3 84 Es 84<78> 
1A99:88 84 BA AC AC EE A2 BEXAF> D1 68 A9 GB AC SD E%X38> CB 60 86 DA 208<6D> 
1AB8:2C A2 07 48 BA A& 95 0<1> Ei A9 4B 85 EB AI 98<25> F8 BO EZ 28 SE<SCA> 
1A1B:42 83 AS 88 9D 44 DS ASF4> EZ 85 ES 85 E4 85 ES<CI> 68 20 68 CS BEXAD> 
1A1B: 9D 45 083 68 90 48 BS<F9> ES 85 E1 AI 48 85 EXxAs> 26 C& BO 18 8105 
1A20: 9 49 85 AC C9 EA 2@<1B> aa 85 E2 85 ES 85 Ea<F8> BO 12 68 2@ Sa<ca> 
1A2B: EF 4C 38 E9 A& 95 AXxaA> ES F@ CB 85 E1 AY9 ARXF3> 68 20 72 CS BRXEC> 
1A3®: 9D 48 85 9D 49 85 A9%TD> EB A? 00 85 E2 85 EXx71> 91 Ch 98 FA AXSS> 
1A38:07 42 85 AC AB 28 20<F4> E4 85 ES 6@ AS DA F@<BS> E9 AS EB 30 F7<Da> 
1A48:D1 4C 38 E9 AS C9 BK16> 49 80 85 D4 60 AS DAa<aCc> 4C DD C5 28 SBXED> 
1A48: 74 CB C4 88 98 UXE2> 7F 85 D4 66 28 3B EC<608> F@ F& AS D4 FRX2E> 
1A5®: Cc9 98 F2 20 F2 EIKEA> 05 F3 90 55 FO 55 BR<SB> 29 7F 85 D4 ASSF> 
1458: C5 88 D@ F7 548 Aa<32> 29 3B EC 28 83 FI Fxon> 38 E9 40 90 D7<FA> 
1GB: D7 FO 82 MB FF 84<13> 1D58:46 DB 47 28 SB EC 29 B3S<CO> 84 FO BE BB 11<C5> 
1A68: D4 85 8A AS D4 BXEF> 1D48:F3 98 SF BO 3A 20 SB EC<6F> E2 08 DO CB CKE7> 
1A78: DS 85 8D A9 9B 2C<SF> 1D48:28 85 F3 98 32 F® 30 Bx<ıc> F&6 BS EI 4A Bo<X2n> 
1A78:A5 A4 88 91 BC 68 18<88> 20 3B EC 28 85 F3 9<Da> 20 6A 48 AS ERXIF> 
1AB9:24 sE 16 21 AI SF AQ<BB> 1058:26 B@ 27 20 3B EC 28 835<45> 4D AS EZ 85 E3S<SD> 
1A88: E® 82 8C EI 82 AXS2> ıD6B:FS FO IF DO 1A 28 SB EC<As> ES DB a3 AS Ei<9A> 
1499: 10 Ba na 00 20 44 EE<AB> 1D68:A5S E@ 25 D4 F® 11 DB 12<DA> 85 FC 4A AA 6%XA3> 
1A98: EF C9 FF D@ SC 2@<B1> 1D70:28 3B EC AS EB 85 D4 F@<BD> AS Ei 29 BF &%XER> 
1AAB: 697 C9 FF D@ SS AF 3F<52> 1078:06 Da 97 AS DA FO 85 4C<85> 20 C9 C2 46 FEXSF> 
1ARB: 8D EZ 82 BC ES BZ<AE> 1088:09 E9 4C DD CS AS D4 FR<F9> DD C3 20 EB C2<AD> 
1AB®: EF 9D 44 05 28 6%86> 1D88:F6 10 F7 25 CA FZ AP CixSB> 50 20 26 CI 20<B4> 
1AB8: 45 03 3D 44 03 CKZE> 1D98:85 D4 68 20 SA F3 98 EA<A&> OF 46 FC 90 FRKES> 
1AC®: ES 28 69 EF 48 2&7C> 1D98:F@ EB BB EI 20 SA FS F@<C8> 2@ 51 C3 28 OB<4E> 
1ACB: AB 68 358 FD 44 Q3<A9> 1DAB:DE DO DF 20 SA FS 98 DA<72> 7a ac ıD F2 AC 29%F9> 
1AD®: 9D 83 98 FD 45 83 IIX6E> 1DA8:BQ DS 29 SA FS 98 D@ FOXFD> a5 48 AS E4 48 ASSöF> 
1AD8:49 FE 48 85 DO 83 FE<11> IDEB:CE BO CF 28 SA FS 98 C7<5D> 43 E2 48 AS Ei aBcA9> 
1AEB:49 2@ C9 EA 28 97 20<2B> 1DB8:B® C8 28 SA FS FO CS DR<SS> ea 290 56 C4 BD E6<a9> 
1AEB: DE 45 05 F@ B7 2@<B6> 1DC®:BE AS D4 45 EB DB 25 AXOr> 85 68 85 EI 68 8%X65> 
1AFB: 2C 16 21 19 QS Ac<FA> 1DC8:DS CS E1 D® 18 AS D& CHFB> 68 ET 68 85 E4 6&&S51> 
1AF@: 60 AF D1 4C SD EXB4> 1DD®:E2 DB 12 AS D7 CS ES DIX6B> E5 @B Es BB CC 20<B2> 
1800: FO 68 68 6C DB BR<FB> 10D8:0C AS DS CS E4 DO 86 AS<CH> c5 17 68 18 84 B8%F4> 
1598: 84 DS AS 82 85 D&<83> 1DE@:D9 C5 ES FB B& 6A 45 DA<Cc7> 85 60 85 EB 84 E1<22> 
1B1®: 65 D7 AB 08 Bi D&<AD> 1DEB:BA AF B1 60 390 85 AS D4<22> rs AC CE ED 28 FE<68> 
1B18: C8 Bi D6 ES DS BR<67> IDF®:C5 EB 68 86 EB AI B1 HR<FC> 25 AA 98 25 E1 ABK2S5> 
1820: C8 C8 D® Fa Es D7<25> 1DF8:A® 98 AS D& DB @6 AS D7<CC> 60 20 FE FS 05 E@ An<76> 
1B28:D® Da 13 88 BI D& Cxas> 85 C& D7 C& D& AA BR<7C> 95 AB BA 68 ZU FE<SB> 
1B38:D4 ®C C8 CB Bi D6 8%77> E2 D® 86 AS ES FO 20<22> 45 AA 98 AS Ei AB<C2> 
1B58:D8 Bi D6 85 D9 68 ARXBF> ES C& EZ 28 F® 16 BI<AB> sa 98 9D 9B BS BXB5> 
1B48:' SD E9 AI BO AB BX1D> Dı EB Da BE E& D4 DEXEB> B2 SC 7C BC 27 67<AF> 
1848:D4 84 DS 98 30 29 AS 8@<5C> E6 DS E6 E@ DB DS E6caB> 85 D4 AS 14 A6 11 FO<FB> 
1B5®: 84 87 85 86 AA @9<95> Da CF BO @2 CS 18 HM<äD> cs Fa F@ AS DA DO<OB> 
1B58:B1 C5 D4 C8 B1 86 ESAS> 38 68 38 AD ES 82 EXT7F> 88 38 85 C6 D4 AC 30<95> 
1B68: ®B C8 Bi 86 65 B8&FB> AA AD E& B2 ES BF ABL6S> 60 28 C9 C2 28 87 CXS55> 
1B68: E& 87 BB E6& AS 8&B8F> 60 2® Al EF AS D4 AA<BD> A9 F4 20 BO C2 20 2r<aS> 
1B78: C& 87 C& 86 68 40<89> 85 F3 84 F4 AB 088 84<C9> 20 GE F2 20 BB C2 2&<11> 
1B78: AI 86 AC SD EI B6<BD> 1ES5®:F2 60 28 84 F3 28 65 22<CC> C3 4C 85 FZ2 A2 SF 2C<10> 
1898: 2m Bi 86 C9 9B F&<72> 1E58:9@ 34 20 DB FS A9 12 40<95> FF 86 DF 85 DA 84 DE<S7> 
1B88: 86 DB 15 E& 87 DR<A9> 1E68:5D E9 20 84 F3 84 D4 8%87> ıB EB 28 FO EA 18 A%X64> 
1B9B: ®3 Bl 864 FB ES 18<B4> 1E68:D5 Bi FS 38 E9 38 98 1E<A2> 65 DA 85 D4 AS DS 65<DD> 
1B98: 69 84 85 86 MW 0251> 1E70:C9 17 BO 1A C9 BA 98 B&xaS> 85 DS B® 22 38 AS D6<48> 
ıBAB: Aa OB Bi 86 C9 2C<1C> 87 C9 DA 99 10 AZ Ba<XAB> DA 85 D& AS D7 ES DE<DE> 
1BAB: C7 9B FO 83 CB D@<56> D4 26 DS CA Da F7 0%4B> D7 90 13 85 D6 FO BF<A4> 
1BB®: 86 A& B7 20 53 F4<@2> 85 D4 C8 D@ DB 28 Ba<an> AS D6 ES E2 85 DC AS<74> 
1BB8: 86 65 D& 85 86 MA9> 4C 00 CO A2 00 FO Ban 2168:D7 ES ES 85 DD BB 84 AXAA> 
1BC9: 87 60 28 Cı FO A&<D2> 08 DB 96 AZ BC Da BX<EB> AB 6 DA D® 82 E&<DE> 
1BC8:88 74 FE 2@ Cı F@ AS<AD> 14 18 86 D4 65 D4 Am<AS> aa aa E@ 51 D4 2%35C> 
1BD8:D4 DS AZ 80 85 F3 84<9A> 7a 82 AD 80 68 AC 29%DC> Da 35 D4 85 DE ASC7F> 
1BD8:F4 F2 AS D& 48 20 65A7> AB 08 AS DS FO BS 20<26> 85 D9 EB 85 E4 AS<49> 
1BEO:22 GA 68 C5 F2 DD 05<6D> F3 AS D4 48 an an An<ca> 85 ES ES 85 DE A&<26> 
1BEB:A& 88 4C 51 EB AP BB AC<SB> 28 89 Fa 68 29 OF @917> E8 CA DB 04 C& DE 30<a5> 
1BFO:SD E9 86 88 AS 93 D® Qn<aD> C9 3A 90 82 69 B& 99F5> DB 51 E4 25 DF D@<as> 
1BF8:A5 F2 DO 2A A9 SF 28 Fa<Sa> 05 CB 68 85 D4 B4 DS<DE> De D9 E6 ESCIE> 
1COB:ED 2C 86 BB AS F2 DB 1E<91> F3 F3 A9 88 DB 30 20<AD> D@ 02 E6<74> 
1C08:20 08 CB A& 93 AS FS 9D<54> 22 AB FF CB BI FS 1@<51> C6 DD 3929> 
1C1@:44 @3 AS F4 9D 45 83 A9CB> 29 7F 91 F3 CB AS FCDB> Z1CQ:AE C6 DE 4C BS F& AS DA<AD> 
1C18:08 9D 48 03 A7 Bl ID ARcAs> 1D AD FC 82 AB a2 Cxac> 21C8:A4 DB 60 85 D6 85 D7 AB<77> 
1C28:03 A9 25 20 C& EA 6@ 20<5D> Ba 12 A2 BE DD 2C F&X9E> Z1D0:@8 16 E& I6 ES 26 D6 90<B7> 
1C28:44 Fi 4C 72 F1 2@ 34 F1<70> 1FOB:F® GB CA 18 FB 28 81 EF<6S> Z1D8:@B 18 BS E& 65 D7 95 E&csa> 
1C30:20 65 22 BO BB A4 F2 BI<BA> 1FQB:8D Ca 05 AD DI A9 CO A2<25> Z1E0:90 02 F& ES 88 D@ EA 6M<AR> 
1CSB:FS C9 FB F@ QB C9 2C DR<1E> 1F10:05 86 D5 85 D4 84 D& A%SB> ZIEB:AC 29 FS 85 D4 98 85 8D<19> 

Listing 2. Turbo-Basic-Compiler-Runtime-Paket (Fortsetzung) 
Eomeren 59 


TURBO-BASIC 


2298: 18 


2318:C6 
2320: DE 
2528:88 
2330: BD 
2358: DE 
2342:88 


2SEB:EB 
23EB:EB 

23F0:68 

25F8:90 

2400: 90 

2408:0F 60 85 
2410:C5 D4 DO 
2 ıc 
2420:D® 15 CB 
2428:@E C8 Bi 
2430:C8 Ei 9@ 
2438:45 EC 45 
2448:45 EC 18 
2448:60 20 AA 
2450:A0 00 20 


2458:C9 FB D® 
2460:C2 D® 65 
2468:20 8D &F 
2470:22 A9 E9 
2478:EF 85 80 
2480:2@ 69 EF 
2a88:85 83 20 
2490:69 EF 85 
ZA98:89 88 84 
ZAAG:6F AA AS 
Z4A8:2@ 4B EF 
Z4RO:86 RD E8 
Z4B8:FB 86 98 
Z4C0:ER A7 OA 
ZAC8:A9 15 A4C 


SHESSRISBITETBIIBEBERAASER 


aa 
®6 


SERSEREBBASBTESTENTAERSBASHE 


BRASAISSSIHZIERAREEE 


NESHBSEBSERRSZSBSTSSERTZESBERE 


BABFSNEHBINNTHSBSSEIEHSTITESETBRBSERSEERTERELSLBRBRESHERHASBNT 


SHBAFBRERSAIESTSTBAFSBSASFTSESEBPFBFFERGE 


BRASSERAEBERABR 


BRSASBASBREBMERSSARFRENTISBBSRHSNERNTRUBNTISERERBREAE 


Bi 


> 
& 


BI<ED> 
De<ac> 
ER<SB> 
2019> 
BRcas> 
D6<as> 
85977 
9O<Da> 
DA<C2> 
20<C1> 
F7<AS> 
E2<2C> 
65659> 
BSCDB> 
92<C7> 
10<BC> 
Ca<D@> 
DE<BCH 
@2<D3> 
75<68> 
TESSA> 
ASCBE> 
Bacıs> 
38<2C> 
BIAF> 
BA<96> 
BOSF6> 
Eic11> 
FZ<12> 
Ca<BB> 
BR<B2> 
BA<B7> 
NI<AE> 
Da<B2> 
DE<TE> 
AS<32> 
FA<Q6> 
@R<aa> 
F1<a2> 
CRSır> 
AB<CE> 
FI<BA> 
AICBS> 
BB<3a> 
DS<ED> 
CR<7C> 
S1<Dc> 
PXIE> 
BRLEA> 
9B<73> 
FO<SE> 
A6CH6> 
FRE» 
FO<ac> 
@n<55> 
Fa<as> 
I a5> 
AOCFS> 
EI<75> 
FO 10> 
CE<BS> 
T7<CC> 
SIXıE> 
6B<E8> 
BI<AR> 
85<26> 
E6<FF> 
IOSF > 
cSc31> 
D6<16> 
DO<AE> 
B7<CE> 
SACES> 
Da<93> 
OR<ZF> 
BED» 
EF<D2> 
CHEZ> 
ARE» 
TO<B6> 
6IE7> 
S1<DE> 
EF<ED> 
20<41> 
22<20> 
ERTA> 
BA<SO> 
11°D5> 
B6<BE> 
AR<FF> 
22<AD> 
ARLıB> 


Z718:FC 
2718:D8 


BBABESBEBFIHTHTIRRESBANFEBEBSBEERSEELTERIETTBETSREE"EHER 


BISBBRESNRRSSTERSERERSETBÄRTRESENBUATBANESHEBBSTATHNEERSEEBBAHFTEBEBTBEETSTBUSERRTERZTAHAEES 


14 


BERSHEKRASSUIRZERBINGRERTEREFRÜBBBBHBARNERTBERSBENEASHRNRBEBERATSEREERFIATERETBGEFZLHSARESS 


18 
op 


BEBIBAIQNANSUESSRUBFEBIBNUHELNZAEBTESIGEKZEERTSTHÄIZTRÄBRSEE 


BEBBSRGBEIRSEZIBBSSITSTRABFRRTEBSERHTETEIHTEEENEH 


BRRERSEESFAU 


D3 


38 


A538 


BRSEREBSASSBRAFRS 


€ 


DB 


@0<58> 
IDL65> 
B5D3> 
B563> 
FO<S@> 
SITE> 
BOCEF> 
CC<EF> 
F1<BE> 
AICBB> 
1<12> 
25<2A> 
BE<AI> 
Ba<Ss> 
EIAS> 
Ca<BS> 
66<18> 
AIDE> 
20<02> 
FZ<Ar> 
BB<7E> 
A2<39> 
ancas> 
IF) 
BacaD> 
BACET> 
20<52> 
BR<Fa> 
CB<ES> 
QOCar> 
14<91> 
AICAB> 
BO<38> 
C8<27> 
BF<7CH 
ASCBF> 
83<A7> 
6R<15> 
FB<CB> 
aucAn> 
DR<SB> 
AREB> 
AM<BB> 
ARC89> 
@9%28> 
AACED> 
a1<a3> 
32<6E> 
EI<7®> 
BR<FC> 
DE<18> 
FE<IS> 
3CK42> 
FC<9S> 
A6&C25> 
CK79> 
DO<BS> 
E6SFF> 
BAcAs> 
E6C39> 
SSCCE> 
DO<Fa> 
EI<AS> 
EI<OB> 
ERSBE> 
ERE6> 
E2<11> 
E2<C6> 
EIKa6> 
SIAB> 
ERcEc> 
75<85> 
BRA6> 
ABSIB> 
Bi<1a> 
07<95> 
CA<DS> 
03295 
DI<BB> 
60<87> 
TS<@E> 
B1<66> 
DA<15> 
BR<S3> 
QLB6> 
Ba<11> 
BB<TE> 
D7<23> 
00a9> 
D9<Ta> 
BSKERA> 
8592> 


FERESBEHHESER 


FS 00 


DB 88<40> 
BO BI<EA> 
20 SE<21> 
86 DS<DO> 
98 69<32> 
C6 92<3C> 
69 BIC7E> 
aD SO<FB> 
86 DC<7A> 
BA 26<A9> 
65 DD<9B@> 
85 D&<70> 
DB 84<0D> 
D9 F&96> 
85 D&<Sa> 
D9 DO<EB>- 
BF BxEr> 
DF EC<6S> 
a0 AB<A7> 
C8 Da<FD> 
A6& DE<SCH 
DB FA<9B> 
EB SKIE> 
€9 C6<58> 
85 E7<29> 
77 EB<C2> 
ES DAA2> 
AS E7<80> 
20 D4<9E> 
85 DE<F9> 
2A BXAE> 
DD 65cA7> 
D5 AB<EO> 
60 AC<SC> 
RS EB<76> 
86 DCE7> 
DS 20<ED> 
AS Da<SQ> 
FD AC<2a> 
C® A6<Ss> 
AS 11<11> 
A& DS<DR> 
2® 04<D8> 
FE AC<66> 
EI 86<60> 
Da BE<an> 
D6 B6cA7> 
DS ac<ıB> 
D9 AA<SA> 
DB 98<E7> 
FE 20<31> 
TE FE<AS> 
20 AB<6C> 
D@ DE<BE> 
EO D4<a0> 
8D B<ac> 
04 BS<DF> 
85 BA<2C> 
85 BB<ES> 
22 38<2C> 
DB ABCSC>» 
Ch 92476> 
EZ BD<87> 
F@ GA<7F> 
ES E3<C@> 
E9 ASCF9> 
ES CA<BE> 
DE E%1D> 
EI O0Ca6> 
ES ER<6B> 
85 D7<DC> 
18 AS<BB> 
DS 65<DD> 
84 E3C14> 
ER AS<42> 
ES BO<@r> 
EB A6<F7> 
ES 68<9A> 
ac 18<C0> 
48 B6CSE> 
A& 92<7B> 
BD BO<ES> 
D® F2<F@> 
AS D7<ED> 
AO 00<38> 
BB AC<O1> 
D4 9OXCA> 
D4 38<F1> 
FF DO<R2> 
a0 BR<cD> 


60 


TURBO-BASIC 


Von der 
Ordnung zum 
Chaos - 
Apfelmänn- 
chen auf dem 
Atari 


Faszinierende Grafiken von nahezu unendlicher 
Vielfalt erzeugt das Programm »Apfelmännchen« 
auf dem Atari 800XL in Turbo-Basic. 


rundlage dieses Programms ist ein Teilgebiet der 
G Mathematik von großer Komplexität. Es handelt sich 
um die Berechnung und Betrachtung der sogenann- 
ten Mandelbrot-Menge und speziell deren Grenzschichten. 
Diese Menge, benannt nach dem Wissenschaftler Benoit B. 
Mandelbrot, besteht aus einer Folge von komplexen Zahlen, 
die sich recht merkwürdig verhalten. Trägt man die beiden 
Komponenten jeder komplexen Zahl, die sich aus diesem 
Algorithmus ergibt, auf die Abszisse und die Ordinate eines 
Koordinatensystems auf, so erhält man Grafiken, die kuriose 
Eigenschaften aufweisen. 

Um den grundlegenden Algorithmus zu verstehen, muß 
man sich etwas näher mit den Eigenschaften komplexer Zah- 
len auseinandersetzen. Eine komplexe Zahl besteht immer 
aus zwei Komponenten, dem Realteil und dem Imaginärteil. 
Die Schreibweise erfolgt in der Form: »C=a+bi«. Die kom- 
plexe Zahl C ergibt sich also aus dem Realteil a und dem Ima- 
ginärteil b. Der Buchstabe i steht für eine Konstante und 
unterliegt folgender Definition: »i?=-1«. Die Rechenregeln 
der komplexen Zahlen weichen jedoch von denen der reellen 
Zahlen ab. Geht man bei der Addition noch in gewohnter 
Weise vor und addiert Real- und Imaginärteil einfach separat, 
ist das Multiplizieren schon etwas komplizierter. So ergibt 
sich »(a+bi)*(c+di)« zu »(a*c-b*d)+(a*d+b”c)*ic. Wer 
diese Formel genauer betrachtet, wird feststellen, daß sich 
»i?« aufgrund seiner Definition zu -1 aufgelöst hat. 

Beim »Apfelmännchen« geht man von der komplexen Zahl 
Null aus, zieht eine komplexe Zahl C ab und quadriert das 
Ergebnis. Nun ziehtman erneutC ab und quadriert das Ganze 
wiederum. Dieser Vorgang wiederholt sich so lange, bis ein 
vorher festgelegtes Grenzkriterium überschritten wird. Alle 
Zahlen, die hierbei gegen Unendlich streben, gehören zur 
Mandelbrot-Menge. Am Rand dieser Menge stellt sich 
jedoch ein seltsamer Effekt ein. Hier fallen oder steigen die 
Zahlen bei wechselndem Vorzeichen scheinbar völlig regel- 
los. Dies ist der für die Grafik interessante Teil der 
Mandelbrot-Menge. Zwei Grenzkriterien legen nun fest, ob 
man sich innerhalb oder außerhalb beziehungsweise am 
Rand der Mandelbrot-Ebene befindet. Das erste Kriterium 
bricht den Algorithmus nach einer vorher festgelegten Zahl 
von Durchgängen ab. Im Listing geschieht dies durch die 
Variable sTMAX«, Wird dieser Wert erreicht, nimmt man an, 
daß die Folge gegen Unendlich strebt. Der Punkt auf dem 
Bildschirm erhält die Farbe Schwarz. Im anderen Fall wurde 


das zweite Grenzkriterium zuerst erreicht. Dies ist dann der 
Fall, wenn die komplexe Zahl einen bestimmten Wert über- 
schreitet. Im Listing wurde der Grenzwert 8 angenommen, 
der jedoch keine feste Größe darstellt, und fast beliebig 
geändert werden kann. Die zuzuordnende Farbe wird nun 
von der Anzahl der Iterationen abhängig gemacht. Im Listing 
geschieht dies mit der Zuordnung TIEFE MOD 3+1«. Diese 
Berechnung kann zu den Farben Eins, Zwei und Drei, niemals 
jedoch zu der Farbe Null führen. 

Für jeden Punkt, der berechnet werden soll, wird natürlich 
eine andere komplexe Zahl C gewählt. Die Umgebung der 
Mandelbrot-Ebene ergibt sich für folgende Werte: Realteil 
von -2 bis 1 und Imaginärteil von -1.5 bis 1.5. Innerhalb die- 
ser Grenzen kann man nun beliebig kleine Ausschnitte auf 
dem Bildschirm darstellen, also Teilbereiche der Menge 
gewissermaßen vergrößern. Dabei stellt man fest, daß immer 
neue Grafiken oder Figuren entstehen, die zum Teil zu ande- 
ren Ausschnitten ähnlich, aber nie genau gleich sind. Die ein- 
zige Einschränkung, die hierbei vom Computer auferlegt 
wird, liegt in der begrenzten Rechengenauigkeit. Beitheore- 
tisch unendlicher Rechengenauigkeit ließe sich die Grafik 
unendlich oft vergrößern. Geht man also beispielsweise von 
den Grenzen -1,1,-1 und 1 aus, so wären als nächste Vergrö- 
Berungsstufe die Werte -0.5,0.5,-0.5 und 0,5 denkbar. Hal- 
biert man diese Werte immer wieder, so ist klar ersichtlich, 
daß auch eine zehnstellige Rechengenauigkeit bald nicht 
mehr zur Darstellung der Zahlen genügt. 


Komplexe Formel, schöne Grafik 


Zur Realisierung dieses Programms auf dem Atari wurde 
als Programmiersprache Turbo-Basic XL gewählt. Die zirka 
viermal so hohe Rechengeschwindigkeit, die diese Sprache 
gegenüber dem normalen Basic aufweist, ist für eine akzep- 
table Rechendauer unbedingt notwendig. Die Grafik wird in 
Grafikstufe 15 erzeugt. Dies bedeutet, daß genau 30720 
Bildpunkte berechnet werden müssen. Abhängig von der 
maximalen Iterationszahl, die man mit sST’MAX« bestimmt hat, 
kann jeder Punkt zudem bis zu 250mal berechnet werden. 
Selbst unter Turbo-Basic XL führt dies in Extremfällen zu 
Rechenzeiten von acht Stunden und mehr. Die Programmie- 
rung in Atari-Basic erscheint also wenig sinnvoll, will man. 
nicht ein bis zwei Tage auf die Vollendung einer Grafik warten. 


Handhabung des Programms 

Nach dem Starten des Programms kommt man in das zen- 
trale Menü, von dem aus alle Funktionen direkt ansprechbar 
sind. Punkt eins des Menüs betrifft den Start eines Apfel- 
männchens. Man muß zuerst die obere und untere Grenze 
des Real- und Imaginärbereichs eingeben. Auf die Frage 


r Zu. 
PROGRAMM-STECKBRIEF 
Programmname Apfelmännchen 
Programmtyp Grafik 
| Programmiersprache Turbo-Basic XL 
Programmlänge 7155 Byte 
[3 
für Computer 800 XL1130 XE 
IB 
Zusätzliche Hardware Diskettenlaufwerk 
Eingabehilfe Prüfsummer 
Bemerkung Erzeugt und speichert Grafiken, die 
mittels einer speziellen mathematischen 
Formel berechnet werden. Auf der 
Leserservice-Diskette sind einige fer- 
tige Grafiken bereits gespeichert. 
Leserservice Diskette (APFELTUR) 
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TIEFE?« antwortet man mit der maximalen Anzahl der Itera- 
tionen, die man zur Berechnung jedes Punktes zulassen will. 
Je höher man diesen Wert wählt, desto feiner werden die 
Grenzbereiche zur Mandelbrot-Ebene berechnet. Dies 
bedeutet allerdings auch eine Erhöhung der Rechenzeit, so 
daß man hier meist Kompromisse eingehen wird. Die Berech- 
nung der Grafik kann dann auf dem Bildschirm mitverfolgt 
werden. Nach der Fertigstellung springt das Programm 
zurück ins Hauptmenü. Das fertige Bild kann man nun mit 
Option 2 auf dem Bildschirm betrachten. Mit den Tasten 0, 1, 
2, und 3 werden die vier Grundfarben nach Belieben nach- 
träglich geändert. Mit Hilfe des dritten Menüpunktes spei- 
chertman das fertige Bild. Wie es auch im Micropainterformat 
üblich ist, werden am Ende des Bildes vier Byte angehängt, 
die Auskunft über die verwendeten Farben geben. Zusätzlich 
speichert das Programm allerdings noch die eingegebenen 
Parameter. So kann man mit Punkt vier des Menüs also auch 
nur solche Bilder von Diskette laden, die das eben beschrie- 
bene Format besitzen. 


Apfelmännchen schön und bunt 


Das Inhaltsverzeichnis einer Diskette erhält man mit Punkt 
fünf des Menüs. Der sechste Punkt, nämlich »Effekte«, läßt 
die drei Vordergundfarben eines Apfelmännchens über den 
Bildschirm »fließen«. Dies gibt der Grafik je nach Aussehen 
interessante, teilweise räumlich wirkende Effekte. 

Um das Vergrößern einzelner Bildteile zu erleichtern, 
wurde Menüpunkt sieben aufgenommen. Mit Hilfe eines Joy- 
sticks kann man einen Bildausschnitt eingrenzen und erneut 
berechnen lassen. Dies geschieht, indem man zwei Eck- 
punkte eines gedachten Rechtecks entsprechend auf dem 
Bildschirm plaziert. Welchen der Eckpunkte man bewegen 
will, wird mit der Feuertaste gewählt. Die Berechnung der 
neuen Grafik beginnt nach dem Drücken der START-Taste. Will 
man sich die neuen Parameter vorher nochansehen, so wählt 
man einfach OPTION. Funktion acht des Menüs zeigt nun die 
Parameter, und mit Punkt neun startet die Berechnung des 
neuen Apfelmännchens. 


Zum Programmaufbau 

Das Programm »Apfelmännchen« wurde in Turbo-Basic XL 
geschrieben und konnte daher nicht nur wesentlich schnel- 
ler, sondern auch strukturierter als im normalen Basic ange- 
legt werden. So wird es auf den ersten Blick auffallen, daß 
beispielsweise auf Zeilennummern-orientierte Sprunganwei- 
sungen mit Ausnahme der sTRAP«-Befehle vollständig ver- 
zichtet wurde. Alle Hauptprogrammteile und Unterroutinen 
sind als Prozeduren angelegt und sinngemäß benannt, 

Die Hauptschleife besteht aus einer DO-LOOP-Anweisung 
von Zeile 95 bis Zeile 240. Hier wird das Hauptmenü auf den 
Bildschirm gebracht, und von hier aus erfolgt der Sprung zu 
allen wesentlichen Prozeduren. Die einzelnen Prozeduren: 


DECLARE 

Es erfolgt die Dimensionierung aller Stringvariablen sowie 
die Erstbelegung der Variablen für die Änderung der Farbre- 
gister. Das Aussehen der beiden Player, die für die Aus- 
schnittberechnung benötigt werden, legen die Variablen LO$ 
und RUS$ fest. 


RECHNEN 

Hier findet man den Berechnungsalgorithmus, wie er im 
wesentlichen bereits erklärt wurde. Verwendung findet die 
Grafikstufe 15; man verfügt also über vier Farben bei einer 
Auflösung von 160 mal 192 Bildpunkten. Es wäre auch eine 
andere Grafikstufe denkbar. In diesem Fall müßten folgende 
Änderungen vorgenommen werden: Anpassung der Varia- 
blen DX, DY sowie der Schleifen ZEILE und SPALTE an die 
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neue Auflösung. In Zeile 1230 muß anstatt der drei die Anzahl 
der Farben minus eins eingesetzt werden. 


EFFEKTE 

Die drei Farbregister für die Vordergrundfarben werden mit 
verschiedenen Farbwerten belegt. Durch die Verschiebung 
der Farben entsteht der Eindruck des Fließens. 


PARAMETER 

Hier gibt man die Randwerte für ein neues Apfelmännchen 
ein. Ist dies geschehen, wird die Prozedur RECHNEN aufge- 
rufen. 


SEHEN 

Über die Prozedur BILDHOLEN wird das momentan im 
Speicher befindliche Apfelmännchen auf dem Bildschirm 
dargestellt. Die Farbregister 708, 709, 710 und 712 werden 
durch Drücken der Tasten O bis 3 jeweils um den Wert eins 
inkrementiert. Die REPEAT-Anweisung wird bis zum Betäti- 
gen der Leertaste ausgeführt. 


SPEICHERN 

Zuerst erfolgt der Aufruf der Prozedur »FILEGET«. Dabei 
wird der Filename des Bildes gelesen, auf Fehler überprüft 
und gegebenenfalls ergänzt. Mit dem BPUT-Befehl wird der 
Inhalt des Bildschirmspeichers auf Diskette abgelegt. Es fol- 
gen die vier Farbbytes und die Parameter. Da es sich bei letz- 
teren um Gleitkommazahlen handelt, werden sie als Strings 
gespeichert. 


LADEN 

Diese Prozedur entspricht fast vollständig der Prozedur 
»SPEICHERN«. Alle Schreibbefehle sind sinngemäß in Lese- 
befehle umgewandelt. Eventuell auftretende Fehler bei der 
Diskettenhandhabung werden von TRAP-Routinen abgefan- 
gen. 


DIRECTORY 

Derlinke Bildrand wird auf Position 7 gesetztund das Direc- 
tory mit dem DIR-Befehl aufgerufen. Nach Betätigung einer 
Taste erfolgt der Rücksprung ins Hauptmenü. 


Ausschnitt 

Diese Prozedur setztsich aus mehreren Unterprogrammen 
zusammen. PMINIT initialisiert die grundsätzlichen Vorein- 
stellungen für den Player/Missile-Aufruf. Verwendung finden 
die Player null und eins. Sie werden in Einzelzeilen-Auflösung 
dargestellt. Ihre Farbe ist Weiß und die erste Position wird 
durch die Variablen XO, YO, X1 und Y1 definiert. PMBUILD 
positioniert die beiden Player auf dem Bildschirm. Der Aufbau 
erfolgt dabei durch den MOVE-Befehl. Die folgende REPEAT- 
Anweisung fragt den Joystick und die Sondertasten ab. 
‚Abhängig von der Auslenkrichtung des Joysticks werden die 
Prozeduren »PMLEFT«, »PMRIGHTe »PMUP« und 
»PMDOWN« angesprungen. Sie versetzen den jeweiligen 
Player um einen Pixel in die gewünschte Richtung. Ist die 
Positionierung abgeschlossen, werden die alten Parameter 
durch die neuen Werte ersetzt. Die Prozedur »PMEXIT« 
schaltet zuletzt die beiden Player wieder aus. 


PARAMANZ 
Hier werden lediglich die aktuellen Parameter auf dem Bild- 
schirm angezeigt. Nach dem Betätigen einer beliebigen Taste 
gelangt man wieder ins Hauptmenü. 
(Wolfgang Czerny/wb) 


10 -- <yw> FOKE 718,C0L®:PAUSE 5 <FC> 
15 REM - Apfelmaennchen in - "<DT> POKE 788,C0L2:FOKE 789 ,COL® <PS> 
17 REM — Turbo-Basic XL fuer - <FU> FOKE 718,COL1:PAUSE 5 <5A> 
19 REM — Atari-Computer mit - <CE> UNTIL PEEK(764)<>255 <XF> 
28 REM - mindestens 48 KByte-RAM- SBRK> 1460 ENDPROC <PC> 
25 REM - - <KM> 1478 — <WH> 
27 REM - Programniert von - <RA> 1488 REM - Parametereingabe - <MK> 
29 REM - Wolfgang Czerny - SAR> 1498 — <UN> 
3® REM - (c) Happy-Computer - <LL> 2000 PROC PARAMETER <UK> 
35 <z1> 2005 REPEAT SEU> 
90 EXEC DECLARE <YX> 201@ TRAP 2210 <LY> 
95 DO <RA> 2020 CLS :FOKE 752,8 <NK> 
1900 GRAPHICS B:POKE 752,1 <Eu> 2@3@ POSITION 9,3:? "PARAMETERAEINGEBEN" <WB> 
118 POKE 789,0:POKE 710,1@:POKE 712,10 <EY> 2048 FOSITION 9,4:7 " <y1> 
115 POKE 82,8 <Hv> 2045 REPEAT <FG> 
12@ POSITION 9,1:7 "HAUPTMENUE" <Xc> 205@ POSITION 3,7: INPUT "Linker «Rand“=." 

13@ POSITION 9,23? "-----_—t <EC> 3 XMIN <82> 
148 POSITION 5, "(1)aunParameterzeing 2068 POSITION 3,9: INPUT "Rechter Rand“=. 
eben" xSM> XMAX <HT> 
15@ POSITION 5, "(2aunBildaansehen"” <AW> 2065 UNTIL XMIN<XMAX <FB> 
160 POSITION 3,9:? "(3 euuBild«speichern 2067 REPEAT <FU> 
= «Dv> 207@ POSITION 3,11: INPUT "Unterer «Randı= 

17@ POSITION 3,1 "(MannBildiladen"  <WQ> az YMAX <55> 
18@ POSITION 3,1 "(S)urrDirectory" <IU> 2080 POSITION 3,13: INPUT "Oberer “Rand“=. 

19@ POSITION 3,1 "öl ansEffekte" <6c> "ZYMIN <WL> 
195 POSITION 3,1 "(T)anaAuschnitt <Ir> 2882 UNTIL YMAX<YMIN <PO> 
197 POSITION 3,1 " (8) an.Parameter anz 2083 REPEAT <FR> 
eigen" <uK> 2085 FOSITION 3,15: INPUT "Tiefe (5.-.254 

199 POSITION 3 "(9 uu.Rechnen" SRE> Ia=";TMAX <DJ> 
20@ POSITION 3 "(D) axsEnde"; <EA> 2087 UNTIL TMAX>4 AND TMAX<255 <I> 
205 REPEAT <Dm> 2090 POSITION 3,20:? "ALLES.INAORDNUNGA? 

210 GET EIN <HE> PER <DO> 
22® UNTIL EIN>47 AND EIN<SB <OH> 2891 REPEAT <FF> 
225 IF EIN=48 THEN EXIT XEF> 2092 GET EIN <3J> 
230 ON EIN-48 EXEC FARAMETER,SEHEN,SFEIC 2093 UNTIL EIN=74 OR EIN=78 <ZR> 
HERN,LADEN ‚DIRECTORY ‚EFFEKTE ,AUSSCHNITT, 2094 UNTIL EIN=74 <KB> 
PARAMANZ „RECHNEN <XD> 2095 EXEC RECHNEN <KD> 
248 LOOF <CF> 2100 ENDPROC <OF> 
250 END <xK> 2110 —- <vK> 
1000 -- <VE> 2120 REM — Bild ansehen - <DP> 
1002 REM -  Rechenroutine - <ıu> 2130 — <va> 
1003 -— <va> 3082 PROC SEHEN KYF> 
1087 PROC RECHNEN KNR> 3010 EXEC BILDHOLEN <I1B> 
101® GRAPHICS 15+16:POKE 764,255 <05> 3015 REPEAT <EY> \ 
1830 DX=(XMAX-XMIN) 7/1597 SMN> 3017 REPEAT <FB> 
1040 DY=(YMAX-YMIN)/191 <KE> 3028 GET EIN <IH> 
1050 CX=XMIN:CY=YMAX <su> 3@4@ UNTIL (EIN>47 AND EIN<S2) OR EIN=32 <UQ> 
1088 FOR ZEILE=® TO 191 <EH> 305@ IF EIN-48=® THEN COLG=COLB+1:IF COL 

1090 FOR SPALTE=® TO 159 <WH> 9>255 THEN COLB=COLB-256 <za> 
1112 TI=8: XW=B: YW=: X2=0: V2=® <IY> 3068 IF EIN-48=1 THEN COL1=COLI+1: IF COL 

1120 WHILE TI<TMAX AND (X2+Y2)<B “PY> 19255 THEN COLI=COL1-256 <10> 
1130 YW=2#XW#YW-CY: XW=X2-V2-CX <TU> 3978 IF EIN-48=2 THEN COL2=COL2+1:1F COL 

1158 X2=XW"2: Y2=VW“ZETI=TIH1 KXN> 2>255 THEN COL2=COL2-256 SRM> 
118@ WEND <UE> 308® IF EIN-48=3 THEN COLS=COLS+1:IF COL 

1198 IF TI=TMAX <FI> 3>255 THEN COLS=COLS-256 <AK> 
1280 COLOR 48 <aL> 3098 POKE 708,C0L@:POKE 709,C0L1:POKE 71 

122@ ELSE <TE> @,COL2:POKE 712,COL3 <Xa> 
1230 COLOR (TI MOD SI+%1 <1D> 3128 UNTIL EIN=32 <EY> 
1240 ENDIF <SW> 311® EXEC BILDSPEICHERN <UT> 
1250 CX=CX+DX:PLOT SPALTE,ZEILE <xa> 3908 ENDPROC <aw> 
1260 IF PEEK(764)=28 THEN FOP :60T0 1295 <FH> 3970 -—- <WZ> 
127@ NEXT SPALTE <DB> 3992 REM - Bild auf Diskette - <KC> 
1280 CX=XMIN:CY=CY-DY <DC> 3993 REM - speichern - <65> 
129@ NEXT ZEILE <6B> 3994 — <XP> 
1295 EXEC BILDSPEICHERN <WL> 4000 PROC SPEICHERN <SV> 
1302 ENDPROC <01> 3018 CLS <TL> 
1391 — <vo> 4020 POSITION 9,3:? "BILDASPEICHERN" <Bx> 
1382 REM - Bildeffekte - <Dv> 4@3® FOSITION 9,4:7 " 3 <TL> 
1383 —— <vW> 4058 EXEC FILEGET SIND 
1305 PROC EFFEKTE <3T> 4108 EXEC BILDHOLEN <IB> 
1318 EXEC BILDHOLEN <IF> 4118 OPEN #1,8,0,DAT& <sV> 
1370 POKE 764,255 <65> 412@ BPUT #1,DPEEK (88) ‚7688 <EU> 
1375 REPEAT <FU> 4120 PUT #1,COL0,COL1,C0L2,COLS <PH> 
1388 POKE 708,COLB:POKE 789,COL1 <aE> 4148 FRINT #1,STR$CXMIN) <DJ> 
1398 POKE 710,C0L2:PAUSE 5 <HI> 4150 PRINT #1,STRECXMAX) <FO> 
1490 POKE 708,COL1:POKE 789,C0L2 <RB> 4160 PRINT #1,STRECYMIN) <EI> 
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417® PRINT #1,STRECYMAX) ı <60> 8148 XDELTA=X1POS-X@POS <CH> 
4188 PRINT #1,STRECTMAX) <cv> 8145 DSOUND <J0> 
419® CLOSE #1 <NP> 8158 UNTIL (START=6 OR START=5) AND XDEL 
4980 ENDFROCG <ox> TA>1 AND YDELTA>1 <TJ> 
4990 — <XA> 2168 DEX=203-48: DEY=223-32 <Ds> 
4992 REM - Bild von Diskette - <aJ> 8178 DXD=(XMAX-XMIN) /DEX <cP> 
4993 REM — laden - <ZH> 818@ DYD=(YMAX-YMIN) /DEY <EY> 
4994 —— <Xx0> 8198 XMINN=XMIN+DXD= (XOPOS-44) <vs> 
a2 PROC LADEN <RM> 8200 XMAXN=XMIN+DXD# (X1POS-35) <UR> 
S@10 CLS <Tm> 8218 YMINN=YMIN+DYD* (YOPOS-3B) <RO> 
5020 FOSITION 9, "BILD-LADEN" <16> 8220 YMAXN=YMIN+DYD#* (Y1POS-28) <BK> 
5030 FOSITION 9, <al> 8239 TMAX=254 <DC> 
5050 EXEC FILEGET <10> 8240 XMIN=XMINN: XMAX=XMAXN <XZ> 
5108 GRAPHICS 15+16 <FR> 8258 YMIN=YMINN= YMAX=YMAXN <aG> 
5110 OPEN #1,4,0,DAT$ <as> 8268 EXEC PMEXIT <DF> 
512@ BGET #1,DPEEK (88) ‚7688 <XM> 827® IF START=& THEN EXEC RECHNEN <zc> 
5125 GET #1,COL9,COL1,COL2,COLS <IP> 8900 ENDPROC <PB> 
S13® INPUT #1,E#: XMIN=VAL (ES) <cm> 8998 — SXE> 
5142 INFUT #1,E#: XMAX=VAL (E$) SIND 8991 REM - Player Missile-Grafik — <av> 
S15@2 INPUT #1,E$: YMIN=VAL (ES) <HK> 8992 REM - initialisieren - <0I> 
5160 INPUT #1,E#:YMAX=VAL (ES) <IL> 8993 — <xa> 
5165 INPUT #1,E#:TMAX=VAL(ES) <6T> IB9D PROC PMINIT <Da> 
517® CLOSE #1 ENK> IO1D PMB=PEEK (186) -40: POKE 54279 ,PMB <mv> 
S18B EXEC BILDSPEICHERN <va> 97020 PMB=PME#256:POKE 559,62 <XL> 
5198 ENDPROC <P3> 9038 POKE 53256,8:POKE 53257,8 <yu> 
3199 — <xv> 9042 FMNR=B:POKE 704,255:POKE 705,255 <HP> 
3200 REM - Directory auf dem - <PR> IOSB MOVE ADR(LEER$) „PME+1024 ‚256 <BE> 
521® REM - Bildschirm ausgeben - <PI> 9069 MOVE ADR(LEER$) ‚PB+1280,256 <FJ> 
5220 — <vs> 9070 XOPOS=44: YBPOS-3@ <DF> 
6290 PROC DIRECTORY <Ia> 9080 X1POS-198: Y1POS=218 <GF> 
6@1@ CLS :FOKE 82,7:? <xQ> 9070 ENDPROC <PL> 
6028 DIR <ST> 9072 — <wv> 
6030 GET EIN <IN> 9873 REM - Player Missiles auf- - <FE> 
6035 POKE 82,8 <LP> 9074 REM - bauen und mani- - <KO> 
6040 ENDPROC <OT> 9895 REM - pulieren - <EK> 
6058 -—— uY> 9299 — <XX> 
6060 REM - Filename abfragen - <vx> 12 PROC PMBUILD <ax> 
sara— <WE> 9118 POKE 53277,3 SEX> 
7aB9 PROC FILEGET <MB> 9120 FOKE 53248,X@POS:POKE 53249,X1FP0OS <RZ> 
7a05 TRAF 7885 <RC> 913@ MOVE ADR(LOS) „PMB+1@24+YaP0S,s <NX> 
7207 POKE 752,8 <PC> 9148 MOVE ADR(RUS) „PMB+1280+V1POS,8 <Ac> 
7818 POSITION 3,7: INPUT "WELCHER.FILE-NA 9198 ENDFROC SEND 
ME" ;FILES = 9220 PROC PMEXIT <60> 
TO2D DATSEN A <a0> 9210 POKE 53277,8 <Da> 
7050 IF FILES(1,2)<>"Dz" <EN> 9220 POKE 559,34 <YW> 
7868 DATS(S,LEN(FILESI+ZISFILES <TB> 9238 MOVE ADR(LEER$) „PMB+1024,256 <BC> 
7870 DATS(1,2)="D:" <CH> 9240 MOVE ADR(LEERS) „PMB+1280,256 <FH> 
7088 ELSE <TY> 9250 ENDPROC <PD> 
7090 DATS=FILES <UD> 9298 — <UR> 
7095 ENDIF <UH> 9292 REM - Player Missiles nach — <NS> 
711@ TRAP 20000 <NK> 97293 REM - oben bewegen In <MD> 
7908 ENDPROC <PA> F294 — <XH> 
7998 — <XD> 9300 PROC PMUP <UN> 
7992 REM - Ausschnitt waehlen = <MB> 9318 IF PMNR=@ <v3> 
7993 REM - fuer diesen Programm- — <PA> 9312 YOPOS=YarOS-1 <uy> 
7994 REM - teil wird ein Jay- - <YA> 9314 IF YOPOS<SB THEN YAPOS=3B <XU> 
7995 REM - stick benoetigt - <vL> 9317 MOVE ADR(LO$) „PMB+1024+Yar0S,8 <OX> 
7996 — <YB> 9318 ENDIF <uD> 
8008 PROC AUSSCHNITT <as> 9320 IF PMNR=1 <WA> 
8010 EXEC BILDHOLEN <16> 9322 YiPOS-YiPOS-i <uv> 
8015 EXEC PMINIT <zw> 9324 IF Y1POS<28 THEN Y1POS=28 <LR> 
8020 EXEC PMBUILD <nA> 9327 MOVE ADR (RU$) „PMB+1280+Y1P0S,8 <BC> 
8822 REPEAT <EU> 9328 ENDIF <UG> 
8024 REPEAT <FC> 9398 ENDPROC <PR> 
8050 JOY=STICK (@) <CP> 9392 — <XB> 
8049 PRESS=STRIG (0) <F6> 9393 REM - Player Missiles nach - SnY> 
8045 START=PEEK (53279) <IL> 9394 REM - unten bewegen = SRN> 
8858 UNTIL JOY<>15 OR PRESS=® OR START<> 7899 = <yD> 
7 <Na> 9400 PROC PMDOWN SFT» 
8060 IF JOY=11 THEN EXEC PMLEFT <an> 9410 IF PMNR=® svL> 
8070 IF JDY=7 THEN EXEC PMRIGHT <EO> 9412 YaPOS=YaroS+1 <TS> 
080 IF JOY=14 THEN EXEC PMUP AYX> 9414 IF Y@POS>221 THEN YOPOS=221 <vA> 
gO9M IF JOY=13 THEN EXEC PMDOWN <aL> 9416 MOVE ADR(LO$) „PMB+1924+YQPOS,8 <av> 
8100 IF FRESS-@ AND FMNR=@ <mv> 9418 ENDIF <UF> 
8105 PMNR=1:SOUND @,10,10,10:PAUSE 18 <PY> 9420 IF PMNR=1 <WC> 
8187 ELSE <UF> 9422 Y1POS=Y1POS+1 <UR> 
8110 IF PRESS=@ AND PMNR=1 THEN PMNR=9:5 9424 IF Y1POS>218 THEN Y1POS=218 <KW> 
OUND ®,190,18,1B:PAUSE 18 <uu> 9426 MOVE ADR(RUS) „PMB+1280+Y1POS,8 <BA> 
812@ ENDIF <sv> 9428 ENDIF <uI> 
8130 YDELTA=YI1POS-YOPDS <pa> 9599 ENDPROC sPv> 
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Jeder kann programmieren 
Computersprache für Eltern und Kinder 
DANIEL WATT 


LOGO...Ergebnis der Erforschung menschlicher 
Intelligenz 

Entwickelt von Seymour Papert, Pädagoge und Mathematik- 
professor. 

Erste Computersprache. die bewußt Strategien menschlichen 
Denkens dient — und in ihrer Logik der Realität gerecht wird. 
LOGO ersetzt BASIC, sagen Pädagogen und Mathematiker. 
LOGO kommt dem übergreifenden, assoziativen Denken 
entgegen. BASIC dagegen ist ein Setzkasten von Logik-Buch 
staben. 

DANIEL WATT....hat im Team von Seymour Papert “Buch des Jahres 1983” 
gearbeitet und ein Buch geschrieben, das voller Bilder seine in den USA 
Erlebnisse mit Kindern am Computer wiedergibt. Ein hochwer- 

tiges Textbuch für LOGO-Kurse. Ein Buch für Lehrer, die nach 

einem bereits von Schulbehörden empfohlenen LOGO-Kurs- 


buch suchen | Li 


Ein Buch für APPLE Il, C-64, IBM PC, ATARI bis 520 ST., TI-99 und Schneider CPCs. te-wi Verlag GmbH 
384 Seiten, A4, DM 59,- Theo-Prosel-Weg 1 
8000 München 40 


Ein Buch für Kinder und ihre Lehrer - ein kindgemäßes Buch für die erste Be 
gegnung mit Computern, ihren Eigenwilligkeiten. und ihren unerschöpflichen 
Möglichkeiten. Ein Buch zu unserer Gegenwart und zur Zukunft unserer Kinder. 
„Computer für Kinder“ richtet sich an Kinder im Alter von 8 bis 13 Jahren, für 
deren Interesse an Computern keines der unzähligen Computer-Bücher ge 
schrieben wurde. 

„Computer für Kinder" ist ganz auf Kinder eingestellt und be- 

schäftigt sich unterhaltsam und leicht verständlich mit folgenden 

Themen 


Wie arbeiten Computer 
Wie funktioniert mein Computer 
Wie programmiert man mit einfachen Flußdiagrammen 
1 Wie kann ich BASIC leicht verstehen 
Programme aufbauen mit Befehlen 
Farbige Graphiken entwerfen 
Erklärung von Computer-Begriffen 


Sally Greenwood Larson war Kindergärtnerin. el 
selbst Computern begegnete und zwischen den \ 
von Kindern und Computern zu vermitteln bega 


Computer für Kinder, A4 quer, Fadenheftung, 
über 100 Seiten, je Ausgabe DM 29,80 
vorliegend für: VC 20, C 64, Apple Il, Atari 


Imasterz 


DM 29.80 DM 29,80 5 DM 19,- DM 239. DM 49, 
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9572 — <XF> 1194® ENDPROC <UP> 
9593 REM — Player Missiles nach - <oc> 11188 — <IH> 
95974 REM - links bewegen - <NZ> 11182 REM — Bild speichern und = <HU> 
9599 — <YH> 11183 REM — Parameter anzeigen = <UN> 
9622 PROC PMLEFT <YK> 11184 — <KB> 
9622 IF FMNR=® <vs> 11118 PROC BILDSPEICHERN <HD> 
9622 XBPOS=XQPUS-ı <UP> 1112® MOVE DPEEK(88) „ADR(SCREENS) ‚7688 <AG> 
9624 IF XGPOS<44 THEN XBPOS=44 <FR> 1115@ ENDPROC <U0> 
9626 POKE 53248,XQ@P0S <0z> 15028 PROC FARAMANZ <PR> 
97628 ENDIF <Uum> 15818 CıS <0D> 
9638 IF FINR=1 <wI> 15928 POSITION 9,3:? "PARAMETERSANZEIGEN 
9632 X1P0OS=X1POS-1 <vm> 5 <TP> 
9634 IF X1P0OS<43 THEN X1P05=43 <FI> 15038 POSITION 9,4:7 "————— 
9636 POKE 53249,X1P0S <QJ> iM <cc> 
9638 ENDIF <uP> 15948 POSITION 3,7:7 "Linker Randa=ı":XxM 
9798 ENDPROC <Pz> In <02> 
9792 — <xXI> 15@5® POSITION 3,9:7 "Rechter sRand.=ı"; 
9793 REM - Player Missiles nach — <06> max <RB> 
9794 REM - rechts bewegen <em> 15868 POSITION 3,11:? "Unterer“Rand«=."; 
9798 — <YL> YMAX <0J> 
IEUR PROC PMRIGHT <zv> 15978 POSITION 3,13:? "Oberer -Randı=ı";Y 
9820 IF PMNR=B <vw> MIN <HX> 
9922 XOPOS=XQFOS+1 <TL> 15889 POSITION 3,15:? "Tiefes=.":TMAxX <IY> 
9824 IF XDPOS>199 THEN XBPOS-199 <XE> 15188 GET EIN <L86> 
9926 POKE 53248,X@P0S <PD> 1511@ ENDPROC <UO> 
<UR> 15198 — <KZ> 
<UN> 15208 REM - Fehlerbehandlung - <26> 
<UI> 15218 — <aW> 
9834 IF X1POS>198 THEN X1P0S=198 <WT> 20200 REM FEHLERROUTINE <ND> 
9836 POKE 53249 ,X1P0S <an> 2@B18 > "{ESC CIL 23” <DP> 
989358 ENDIF <UT> 29015 POSITION 3,18:? "FEHLERANR. "3ERR; 
9998 ENDPROC <aD> " „ISTAUFGETRETEN <OH> 
12208 — <Ic> 28217 POSITION 3,12:7 "ZEILENANR.." <ZA> 
18202 REM - Variablen und Player - <EN> 20028 IF ERR=178 THEN POSITION 3 
10085 REM - Missiles definieren - <KZ> ATEI-NICHT VORHANDEN" <57> 
10884 — <aW> 20835@ IF ERR=1&62 THEN FOSITION 3,28:? "D 
190089 PROC DECLARE <um> ISKETTE-ISTAVOLL" <EI> 
10818 DIM FILES(28) „DAT$ (28) „SCREENS (768 20040 IF ERR=164 THEN FOSITION 5,28:? "D 
®) „LEER$(256) ‚LOS (1@) ‚RUS(19) „ES(2@) <Wz> ATEI-NICHTINLORDNUND" <I5> 
10828 COLD=- OL2=148:C0L3=@® <AaI> 2005@ IF ERR=-169 THEN POSITION 3,20:? "D 
10050 LEERS(1) et IRECTORY-IST.VOLL" <ar> 
L „3":LEERS(ZI=LEERS <Iw> 2096@ iF ERR=16@ THEN POSITION 5,20:? "D 
1004@ LOS="LCTL „>tCTL OPICTL HILCTL HIT ISKET TENLAUFWERKANICHTBEKANNT" <sv> 
ETL H3{CTL HILETL HILCTL „I":RUS="{CTL , 20878 IF ERR=128 THEN FOSITION 3,20:? "U 
ILCTL AILCTL APLCTL ASLCTL AILCTL ACT EBERTRAGUNG.UNTERBROCHEN" <UF> 
OILCTL ,3 <EZ> 22082 IF ERR=167 THEN POSITION 3,20:? "D 
10108 ENDPROC <uA> ATEI-IST.SCHREIBGESCHUETZT" <ZX> 
11008 — <JE> 20098 IF ERR=144 THEN POSITION 3,28:? "D 
11902 REM — Apfelmaennchen auf = <GF> ISKETTE-IST.SCHREIBGESEHUETZT" <TI> 
11083 REM — dem Bildschirm dar- - <cI> 22102 IF ERR=1S8 THEN POSITION 3,20:? "6 
11094 REM - stellen - <uc> ERAET.NICHTANSPRECHBAR" <IT> 
11985 — <KD> 20118 IF ERR=165 THEN POSITION 5,20:? "F 
11@1@ PROC BILDHOLEN <IX> ALSCHER-DATEINAME" <aB> 
11915 GRAPHICS 15+16 <YR> 2@115 POSITION 3,22:7 "WEITER-MITLRETURN 
11@2@ MOVE ADR(SCREENS) ‚DPEEK(88),7688 <IF> ed <WR> 
11038 FOKE 7388,C0L8:POKE 7909,COL1:POKE 7 2212@ GET EIN:TRAP 42200 <au> 
19,C0OL2:POKE 712,C0L3 <IB> 22158 G0TO 95 <WZ> 
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EP AcH, DER SPIELT WIEDER 
DIE KISTE UN PEAUTEDEM SCHIFFEVERSENKEN 
BILDSCHIRM SIND SO MIT DEM NEUEN 


KoMISCHE QUADRATE! PECHNER IM 
NEBENRAUM. 


TURBO-BASIC 


Grafikspielereien in 
Turbo-BasicXL 


Mit einfachen Mitteln lassen 
sich unter Turbo-Basic XL 
schöne Grafikeffekte erzeugen. 


ie neuen Befehle von Turbo- 
Basic XL eröffnen dem Pro- 
grammierer eine Reihe zusätz- 


licher Möglichkeiten, die unter dem nor- 
malen Atari-Basic nur mit Hilfe von 
Assembler-Unterroutinen realisierbar 
waren. So erlaubt auch der Turbo-Ba- 
sic-Befehl »MOVE«, der Speicherberei- 
che blitzschnell verschieben kann, für 
Basic völlig neue Programmtechniken. 
Anhand eines Grafikbildes zeigt das 
Programm »Turbo-Basic-Grafikdemo«, 
wie sich die Daten des Bildschirmspei- 
chers schnell und einfach verschieben 
oder speichern lassen. 

Das Programm ist in einzelne Proze- 
duren unterteilt, dieam Anfang aufgeru- 
fen werden. Mit Ausnahme der Proze- 
duren »DECLARE« und »DEMO« spielt 
die Reihenfolge des Aufrufs keine Rolle. 
Die Routinen, die an der Grafik Verände- 
rungen vornehmen, sind in sich abge- 
schlossen und stellen vor ihrem Ende 
stets den ursprünglichen Zustand des 
Bildes her. Die Prozeduren bewirken im 
einzelnen folgendes: 

Prozedur »DECLARE« 

Initialisieren und dimensionieren der 
benötigten Stringvariablen 
Prozedur »DEMO« 

Erzeugen einer Spirale im Grafik 
15-Format. An diesem Bild werden alle 
weiteren Manipulationen vorgenom- 
men. Hier kann man natürlich sowohl 
andere Grafiken erzeugen als auch ein 
Bild von Diskette laden. 


Bild 1. Ein Grafik 8-Bild mit Textfenster 


Prozedur »TEXTEIN« 

Einblenden eines Textes in das Gra- 
fikbild. Der dabei überschriebene Teil 
der Grafik wird zuvor in einem String 
gespeichert. So ist sichergestellt, daß 
man den ursprünglichen Zustand des 
Bildes wiederherstellen kann. 
Prozedur »XMIRROR« 

Spiegeln der Grafik um die X-Achse. 
Das Bild wird also auf den Kopf gestellt. 
Prozedur »XKLAPPT« 

Spiegeln der oberen Hälfte des Bild- 
schirms nach unten. 

Prozedur »XKLAPPB« 

Hierbei handelt es sich im Prinzip um 
die gleiche Routine wie XKLAPPT. Es 
wird lediglich die untere Hälfte nach 
oben gespiegelt. 

Prozedur »XCOPYT« 

Kopieren der oberen Bildschirmhälfte 
nach unten. 
Prozedur »XCOPYB« 

Untere Hälfte des Bildes nach oben 
kopieren. 


Prozedur »YCOPYL« 

Die linke Hälfte des Bildschirms nach 
rechts kopieren. 
Prozedur »YCOPYR« 

Die rechte Bildschirmhälfte nach links 
kopieren. 

Prozedur »PUTPIC« 

Ablegen des Bildschirminhalts in 
einem String. 
Prozedur »GETPIC« 

Der Inhalt eines Strings wird auf den 
Bildschirm geschrieben. 

Prozedur »EFFEKTE« 

Die Inhalte der Farbregister 708, 709 
und 710 werden ausgetauscht. 
Dadurch entsteht ein schöner Farb- 
effekt. 

Alle Werte in den beschriebenen Pro- 
zeduren beziehen sich übrigens auf ein 
Bild in Grafikstufe 15. Selbstverständ- 
lich können die Effekte auch in allen 
anderen Grafikstufen verwendet wer- 
den. Man muß dann lediglich die Größe 
des Bildschirmspeichers sowie die 
Anzahl der benötigten Byte pro Zeile 
entsprechend anpassen. In Grafikstufe 
15 errechnet sich die Bildschirmgröße 
beispielsweise aus 192 Zeilen und 40 
Byte pro Zeile. 192 multipliziert mit 40 
ergibt also 7680. 

(Wolfgang Czerny/wb) 


PROGRAMM-STECKBRIEF 


Programmname, Grafik-Spielereien 
Programmtyp Grafik 

Programmiersprache Turbo-Basic XL 

Programmlänge 7939 Byte _ | 


für Computer 


Atari 800 XL/130 XE 


zusätzliche Hardware 


Diskettenlaufwerk 


Eingabehilfe 


Prüfsummer 


Bemerkung 


Effektvolle Grafikmanipulation 


Leserservice 


Diskette SPIELETUR 


Bild 2. Hier ist das Textfenster wieder gelöscht und die Grafik 


von Bild 1 gespiegelt 


67 


_TURBO-BASIC 


100 REM SPIELEREIEN MIT DEM <WT> 7099 -- <Xv> 
11@ REM MOVE BEFEHL IN TURBO BASIC <zD> BAB@ PROC XCOPYT <PB> 
L1SIREN —— = <aD> 8028 EXET PUTPIC <zAa> 
12@ REM VON WOLFGANG CZERNY <Xn> 803@ FOR I=® TO 3840 STEP 40 <NH> 
130 — <J1> 8040 MOVE ADR (AS) +1 ,DPEEK (88) +3800+1,48 <KF> 
160 EXEC DECLARE <LK> 8050 NEXT I <FL> 
178 EXEC DEMO <Wv> 8059 PAUSE 508 <Wuw> 
175 DO <FC> 8878 EXEC GETPIC <oK> 
177 EXEC TEXTEIN <10> 8080 ENDPROC <PH> 
188 EXEC XKLAPPT <KP> 8098 -—- - <um> 
19@ EXEC XKLAPPB <ZP> 9000 PROC XCDPYB <EA> 
200 EXEC XMIRROR <RG> 9028 EXEC PUTPIC <zB> 
2190 EXEC XCOPYT <XB> 9050 FOR I1=384@ TO 7688 STEP 40 <AS> 
220 EXEC XCOPYB <MmT> 9040 MOVE ADR(A$)+I,DPEEK(BB)-384Q+1,40 <RO> 
230 EXEC YCOPYL <SZ> 9Q5Q NEXT I <EM> 
249 EXEC YCOPYR <WN> 9068 PAUSE 508 <WxX> 
258 LODOP <CHh> , 9978 EXEC GETPIC <oL> 
588 END <x0> 9088 ENDPROC <PI> 
9 — <LD> 9999 — <yP> 
12008 PROC DECLARE <DD> 10080 PROC YCOPYL <AH> 
1018 DIM A+(8900) „B# (8090) ‚LEER (808) <NC> 10028 EXEC PUTPIC <NV> 
1920 AFL1I="LCTL „I"zASlERBD)="ICTL „I"r 10259 FOR I=@ TO 191 <1z> 
AS(ZI=AE <HV> 10848 MOVE DPEEK (88) +1*49,DPEEK (88) +1#48 
1025 BE(LI="CCTL „I"zBEBOBO)="ICTL „>: +20,20 <uI> 
BE(Z)=BE <LX> 1005@ NEXT I <6D> 
1030 LEERS(LI="{CTL „?":LEERS (BOB) =" CCTL 18962 PAUSE S@@ <BY> 
„2":LEER$(2)=LEER$ <av> 18870 EXEC GETPIC <CL> 
1848 ENDPROC <00> 18888 ENDPROC <VD> 
1298 — <Ur> 189899 — <ME> 
2008 PROC TEXTEIN <BK> 19188 PROC YCOPYR <EI> 
2818 EXEC PUTPIC <YR> 18128 EXEC PUTPIC <NY> 
2020 MOVE DPEEK (88) +3840,ADR (B$) ‚300 <LS> 10138 FOR I=® TO 191 <Ic> 
203@ MOVE ADR(LEER$) „DPEEK (88) +3849,80@ <LF> 18148 MOVE DPEEK (88) +1*40+28,DPEEK (88) +1 
2948 TEXT 8,98, "DIES.IST.EIN" <IND> +42,20 <LxX> 
2050 TEXT 0,107 <au> 1215@ NEXT I <66> 
2060 PAUSE 408 <WE> 18168 PAUSE 3508 <CcB> 
2070 MOVE ADR (B#) „DPEEK (88) +3842,808 <SF> 1817® EXEC GETPIC <co> 
2088 PAUSE 498 <UK> 18188 ENDPROC <vs> 
2099 EXEC GETPIC <OoK> 12199 — <MI> 
2188 ENDPROC <OoF> 11220 PROC GETPIC <B> 
2118 — <uK> 11212 MOVE ADR(A$) „DFEEK (88) ‚7688 <SR> 
5282 PROC XMIRROR <MmD> 11922@ ENDPROC <UH> 
581@ FOR J=1 TO 18 <DI> 11999 — <NI> 
5828 EXEC PUTPIC SYX> 12828 PROC PUTPIC <S6> 
50358 FOR I=7688 TO B STEP -48 <PX> 1281@ MOVE DPEEK (88) „ADR (As) „7688 <EI> 
S@4@ MOVE ADR (AS) +1-4@,DPEEK (88)+7680-1, 12028 ENDPROC <uI> 
40 <L6> 138088 PROC EFFEKTE <zz> 
5@5® NEXT I <FI> 13501@ POKE 764,255 SRH> 
SO6@ NEXT I <rw> 1582@ REPEAT <HM> 
5979 PAUSE 598 <uw> 13038 POKE 708,40:POKE 709,282 <23> 
5075 EXEC GETPIC <PB> 13849 POKE 718,148:PAUSE 5 <vD> 
5080 ENDPROC <PE> 1305® POKE 788,202:POKE 789,148 <UI> 
S5a98 — <w> 15868 POKE 718,48:PAUSE 5 <NS> 
6808 PROC XKLAFPT <EI> 13978 POKE 788,148:POKE 709,48 <KU> 
6820 EXEC PUTPIC <YY> 1308@ POKE 718,282:PAUSE 5 <PP> 
6030 FOR I=384@ TO @ STEP -40 <MmY> 1389@ UNTIL PEEK(764)<>255 <DI> 
6040 MOVE ADR(A$)+I-48,DPEEK (88) +7680-1, <US> 
ao <LH> <IPp> 
605® NEXT I <FJ> <PW> 
6070 EXEC EFFEKTE <FT> <ıa> 
6888 EXEC GETPIC <oL> <cS> 
6090 ENDPROC <PI> 15048 FOR I=1 TO 1008 STEP 5 <0D> 
6099 — <XU> 15050 Q=Q+1:IF Q>3.5 THEN Q=1 <IL> 
7008 PROC XKLAPPB <50> 15068 COLOR Q:R=1/1@:T=I <FU> 
7020 EXEC PUTPIC <Yz> 15078 X=R*COS(T):Y=R#SIN(TI <cc> 
7030 FOR 1=768@ TO 3840 STEP -4@ <co> 15080 IF Y+YI>15i THEN 15148 <BE> 
7040 MOVE ADR (A$)+1-40,DPEEK (88) +7680-1, 15898 PLOT X+XI,Y+YI <uw> 
48 <LI> 15188 X=(I+C) /16*C0S(1+C+9@) <AE> 
7050 NEXT I <FK> 15118 Y=(I+C) /16*SIN(I+C+9@) <DL> 
7070 EXEC EFFEKTE <FU> 15128 DRAWTO X+XI,Y+YI <IT> 
7080 EXEC GETFIC <am> 1513@ NEXT I <61> 
7090 ENDPROC <PJ> 1514@ ENDPROC <vA> 
Listing zu »Turbo-Basic-Grafikdemo« 
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TURBO-BASIC 


Mehr Tempo für Player Missiles 


In normalem Basic ist die Positionierung von Play- 
ern und Missiles eine zeitaufwendige Ange- 


legenheit, in Turbo-Basic XL dagegen nicht. 


'er sich schon einmal mit der Player-Missile-Grafik 
W:: Atari-Computer auseinandergesetzt hat, der 
weiß, daß die horizontale Verschiebung recht ein- 
fach ist. Die vertikale Positionierung hingegen gestaltet sich 
schon wesentlich aufwendiger. Das Programm »PMMOVE« 
demonstriert, wie man den MOVE-Befehl in Verbindung mit 
der Player-Missile-Grafik sinnvoll einsetzen kann. Die Aus- 
wahl, welchen Player man bewegen möchte, erfolgt mit den 
Tasten 1 bis 4. Und hier eine kurze Programmbeschreibung: 
Prozedur »DECLARE« 

Hier werden die Stringvariablen dimensioniert und vier 
Strings mit den Werten für die verschiedenen Player verse- 
hen. Die Höhe jedes Players beträgt in diesem Fall acht Zei- 
len. Ober- und unterhalb ist jeweils eine Leerzeile hinzuge- 
fügt, damit beim Verschieben der alte Player nicht jedesmal 
extra gelöscht werden muß. 

Prozedur »INIT« 

Hier werden die Basiswerte für die Player-Missile-Erzeu- 
gung festgelegt. Zudem wird der Speicherbereich der Player 
gelöscht. Auch diese Maßnahme wird mit Hilfe des MOVE- 


Befehls durchgeführt. Die Anfangspositionen der vier Player 
sind durch die Felder X() und Y() festgelegt. 
Prozedur »PM-BAUEN« 

Die Strings, die für das Aussehen der Player verantwortlich 
sind, werden durch den MOVE-Befehlin die entsprechenden 
Speicherbereiche verlegt. Es folgt dann die Fixierung der 
horizontalen Positionen. 


108 REM PLAYER/MISSLE STEUERUNG <RV> 
110 REM . IN TURBO-BASIC <KB> 
120 REM <am> 
130 REM von Wolfgang Czerny <Wwv> 
140 REM <AQ> 
145 -— <32> 
159 EXEC DECLARE <LI> 
155 GRAPHICS 31 <Xc> 
160 EXEC INIT <DD> 
170 EXEC PM_BAUEN <cD> 
1800 DO <TMm> 
1010 REPEAT <EC> 
1820 GET EIN <IF> 
105® UNTIL (EIN>48 AND EIN<SS) OR EIN=42 

OR EIN=43 OR EIN=45 OR EIN=61 <DI> 
19040 IF EIN>48 AND EIN<S3 THEN NR=EIN-48 <QA> 
1058 IF EIN=42 THEN X (NRI=X NR) +1 <NO> 
196@ IF EIN=43 THEN X{NRI=XNRI-1 <OR> 
19070 IF EIN=45 THEN Y{NRI=YNRI-1 <TS> 
1080 IF 1 THEN Y{NRI=YNRI+L <ar> 
1090 IF Y(NR)>255 THEN Y(NRI=@ <MP> 
119@ IF ViNRI<@ THEN Y(NR)=255 <cO> 
111® IF X(NR)>255 THEN X(NRI=@ <EM> 
112@ IF X(NRI<® THEN X (NR)=255 <BP> 
113® FOKE 53247+NR,X (NR) <vO> 
114@ IF NR=1 THEN MOVE ADR(LOOK1#) „PME+L 
Zar) ,10 <HX> 
115@ IF NR=2 THEN MOVE ADR(LOOK2#) „PME+i 
280+Y (2) ,1@ <RT> 
1160 IF NR=3 THEN MOVE ADR(LOOKS#) „PMB+1 
536+Y (3) ,10 <BY> 
117@ IF NR=4 THEN MOVE ADR(LOOK4#) „PMB+L 
7924, (4) ,10 <LU> 
2080 LODP SXU> 
2018 END SPT> 
20979 — <xa> 
10009 PROC DECLARE <TT> 
1B01® DIM YiA),X1a) Saw> 
10050 DIM LOOK1#(18) „LOOK2$(1@) <FC> 
10040 DIM LOOKS$(19) ‚LOOK4$ (19) <IK> 
10050 DIM LEERS (256) <cB> 
1096® POKE 730,1 <Ur> 
1897@ RESTORE <Do> 
1028@ FOR I=ı TO 1@ <RZ> 
10070 READ WzLOOK1$C1,TI=CHRECW) <SE> 
10100 NEXT I <FM> 
Programm zur Player-Missile-Steuerung (Turbo-Basic XL) 


(Wolfgang Czerny/wb) 
PROGRAMM-STECKBRIEF ] 

Programmname Player/Missile-Mover 
Programmtyp Utility 
Programmiersprache Turbo-Basic XL 
Programmlänge 2372 Byte 
für Computer 800 XU130 XE 
zusätzliche Hardware keine 
Eingabehilfe AMPEL 
Bemerkung Das Programm zeigt, wie man mit den 

speziellen Turbo-Basic-Befehlen Player 

Missiles behandeln kann 
Leserservice Diskette (PMMOVETUR) 
10118 FOR I=1 TO 1® <RA> 
19120 READ WLOOK2$(1,1)=CHRE(W) <RX> 
1013@ NEXT I <FY> 
10148 FOR I=1 TO 1® <RM> 
19159 READ W:LOOKSSCL,LISCHRE WI <TB> 
10160 NEXT I <CK> 
18178 FOR I=1 TO ı@ <RY> 
10188 READ WzLDOK4$ (1, I)=CHRE WI <UF> 
10198 NEXT I <CW> 
10500 REM LOOK <ıTz 
1051® DATA.0,1,2,4,8,144,224,224,240,0  <WO> 
1052@ REM LOOK2 <Ia> 
10530 DATAAB,240,224,224,144,8,4,2,1,0  <RG> 
1054 REM LOOKS <KN> 
10550 DATA-0,128,64,32,16,9,7,7,15,0 <ZL> 
19560 REM LOOKA <LK> 
10570 DATA-0,15,7,7,9,16,32,64,128,@ <BV> 
18990 ENDPROC <WI> 
108999 — <NB> 
11090 PROC INIT <XC> 
1101® PME=PEEK (196) -40: POKE 54279 ,PMB SRL> 
11820 PMB=PMB#256:NR=1 <BU> 
11030 POKE 559 ,62:REM SINGLE RES. <Yc> 
11048 FOR 1=53256 TO 53259 <PR> 
11058 POKE 1,0 <vK> 
11868 NEXT I <6J> 
1107® FOR 1=704 TO 707 <Wv> 
11088 POKE 1,255 <ID> 
1199@ NEXT I <EV> 
11128 FOR I=1@24 TO 1792 STEP 256 <63> 
11110 MOVE ADR(LEER$) ‚PMB+1,256 <oR> 
11129 NEXT I <FW> 
11149 X(1)=50:Y(1)=50:X(2)=6@ <o0> 
11150 Y(2)=60:X(3)=70:Y(3)=70 <vB> 
11168 X(4)=80: Y(4)=88 <IR> 
11190 ENDPROC <um> 
a <MK> 
12008 PROC PM_BAUEN <T8> 
1201® MOVE ADR(LOOKIS) „PMB+1024+Y(1),10 <X0> 
12@2@ MOVE ADR(LOOK2$) „PMB+1280+Y(2),18 <EF> 
1203@ MOVE ADR(LOOKS$) „PME+1535+Y (5) ,10 <KA> 
12940 MOVE ADR(LOOKAS) „PMB+17972+Y(4) ,10 <RW> 
12959 FOR I=1 TO 4 <KR> 
12060 POKE 53247+1,X(1) <ZR> 
1207@ NEXT I <GP> 
12088 POKE 53277,3 <av> 
12090 ENDPROC <vL> 


Eon 


TURBO-BASIC 


Daten 
komprimiert 
gespeichert 


Wer Speicherplatz auf Diskette sparen möchte, 
der kann in Turbo-Basic XL zum Speichern und 
Laden von numerischen Daten auch die Befehle 
»%PUT« und »% GET« verwenden. 


as Atari-Basic kennt zum Speichern und Laden von 
Daten mehrere Anweisungen. Zum Schreiben be- 
nutzt man die Befehle PRINT und PUT, zum Lesen die 


Buk ‚Ausfühnungszeiten in Sekunden u 
Even PR, = 
1050-Laufwerk 1050-Laufwerk 810-Laufwerk 
Mit ‚Ohne Mit Ohne Ohne | 
Verity | Veniy | verify | Verity Verity 
PRINT 3274 2748 | 5822 35.32 34.02 
INPUT 21.2 34.34 32.48 2 
1934 17.64 27.30 16.50 | 
%GET 1142 16.28 1612 j 15.26 15.26 = 


Tabelle mit den Ausführungszeiten unter Verwendung der 
verschiedenen Befehle, mit denen sich Daten speichern und 
laden lassen. 


Befehle INPUT und GET. Unter Turbo-Basic XLallerdings ver- H ne, 
fügt man neben den Anweisungen BPUT und BGET, die für ee a 
die Blockspeicherung zuständig sind, auch über die Befehle | u nt nie me _ En 
%PUT und %GET. “u — <YZ> 
In diesem Fall sollen jedoch nur diejenigen Befehle 188 ? "ZPUT-Demonstration" <ZzZ> 
betrachtet werden, mit denen man Gleitkommazahlen auf ee NER a 
Diskette speichert oder von Diskette lädt. Wie das Listing IS ern ee. 
zeigt, kann man dazu die Befehle PRINT und INPUT bezie- 14@ ACII=RND <FK> 
hungsweise %PUT und %GET verwenden. Diese beiden 15@ NEXT I <6B> 
Befehlspaare führen zwar dieselbe Operation aus, gehen 168 aut u <J0> 
dabeiaber unterschiedliche Wege. SpeichertmaneineGleit- | 149 ._""NT#File PERL 
kommazahl mit Hilfe des PRINT-Befehls, so benötigt jede Zahl 198 T-TIME <PG> 
8 Byte Speicherplatz auf Diskette. Verwendet man hingegen 208 OPEN #1,8,8,"D:RNDTST.DAT" <SX> 
für denselben Vorgang den %PUT-Befehl, benötigt eine 218 FOR I=ı TOD 19088 <GW> 
Gleitkommazahl nur mehr 6 Byte Speicherplatz. = en „ Ds 
Im Listing werden nun 1000 Zufallszahlen in einem Feld 248 CLOSE #1 u 
abgelegt und auf die beiden verschiedenen Methoden auf 250 ? "PRINT: "5 (TIME-T) /5@; "Sekunden" <DC> 
Diskette gespeichert. Anschließend laden wir sie wieder. 260 — <IP> 
Wie man der Tabelle entnehmen kann, spart man bei der Spei- 278 T=TIME e 2 <PD> 
cherung von nur 1000 Zahlen mit den %PUT- und %GET- | 239 Chen #14n8, IDERNDTST.DAT 3 
Befehlen immerhin 56 Sektoren auf Diskette. Das sind rund 328 INPUT #1,ArAtII=A ERF> 
6,8 KByte. Es versteht sich, daß gespeicherte Zahlen jeweils 31@ NEXT I <FV> 
nur von dem äquivalenten Lese-Befehl gelesen werden 32@ CLOSE #1 <LD> 
können. 330 ? "INPUT:2"5 (TIME-T)/5B; "Sekunden" <FF> 
Neben dem geringeren Speicherbedarf hat die Verwen- = a ne inart Ba 
dung von %PUT und %GET auch noch einen weiteren Vor- 38 — <Ja> 
teil. Die benötigten Schreib- und Lesezeiten verringern sich 378 ? "ZPUT.File" <BU> 
um etwa 50 Prozent. Die genauen Zeiten,sind in der Tabelle = — K 
festgehalten. Hierbei wurden übrigens drei verschiedene e BIER & 
Disketten-Laufwerke verwendet. Ein Atari-810-Laufwerk, | zum DREN #1 ,8,0, "DERNDTST-DAT 2 
das neuere 1050-Laufwerk und ein aufgerüstetes 1050- 420 ZPUT #1;AC0) <YN> 
Laufwerk (wie im Artikel »Rasende Daten« in diesem Heft 43@ NEXT I <BA> 
beschrieben). 448 CLOSE #1 <LI> 
(Wolfgang Czerny/wb) = ?_T=APUTAEA"5 (TIME-T) /505 "Sekunden 23 
478 T=TIME <PF> 
488 OPEN #1,4,8,"D:RNDTST.DAT" <RP> 
PROGRAMM-STECKBRIEF 498 FOR I=1 TO 1298 <HO> 
Programmname %PUT- und %GET-Demo Sep NEXT < ER BL 
Programı D 528 CLOSE #1 <LF> 
= av oo 530 ? "ZSETA:2"5 (TIME-TI /5B; " Sekunden“ <LA> 
Programmiersprache Turbo-Basic XL 548 DIR "D:RNDTST.DAT" <mX> 
Eocammlinpe) 1008 Byte 55@ DELETE "D:RNDTST.DAT" <92> 
für Computer alle 
zusätzliche Hardware Diskettenlaufwerk Listing zu »%PUT und %GET« (Turbo-Basic XL) 
Eingabehilfe Prüfsummer 
Bemerkung | 
Leserservice Diskette (PUTGETTUR) 
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Ordnung 
muß sein 


»Wer suchet, der findet« ist das Motto vieler Pro- 
grammsammlungen. Mit »Happy-Disksorter« wird 
die Verwaltung einer Softwaresammlung zum Kin- 
derspiel. Sehen Sie selbst. 


ine Programmsammlung kann so schnell wachsen, 
E daß man den Überblick über seine wertvolle Software 

verliert. Dann legt man Karteikarten an, oder hält auf 
losen Zetteln fest, welche Programme sich auf welcher Dis- 
kette befinden. Nun, ideal scheinen diese Lösungen nicht. Da 
sich ein Computer aber auch hervorragend zur Datenspei- 
cherung eignet, liegt es nahe, ihm diese Aufgabe der Pro- 
grammverwaltung zu übertragen. Dazu benötigt man natür- 
lich spezielle Software. 

»Happy-Disksorter« besteht aus zwei Teilen. Erstens dem 
Maschinenspracheteil (Listing 1) mit dem Menübild und der 
geänderten Display-List, zweitens dem Hauptprogramm 
(Listing 2). Gearbeitet wird nur mit dem Hauptprogramm. 
Listing 1 wird stets hinzugeladen und liegt dann sozusagen 
im Hintergrund vor. 

Bevor Sie mit »Happy-Disksorter« arbeiten können, müs- 
sen beide Listings eingetippt sein. Dann laden und starten 
Sie zuerst Listing 1. Dieses Programm erzeugt das Maschi- 
nenfile mit dem Namen »MENU.PIC« auf Diskette. Anschlie- 
Bend brauchen Sie nurnoch Listing 2 aufzurufen und zu star- 
ten. Es folgt dann automatisch das File »MENU.PIC« und Sie 
gelangen in das Hauptmenü vom »Happy-Disksorter« (Bild). 
Beachten Sie, daß sich dieses File unbedingt auf der glei- 
chen Diskette wie das Hauptprogramm befindet. Später brau- 
chen Sie dann nur noch das Hauptprogramm aufzurufen, da 
das Maschinensprache-File nur einmal auf Diskette ge- 
schrieben werden muß. 

Befinden Sie sich einmalim Hauptmenü, können Sie schon 
die ersten Programmnamen eingeben. Die Namen dürfen 
maximal 25 Zeichen lang sein. Anschließend folgt die Frage 
nach dem Umfang des Programms in Sektoren und des Inde- 
xes zum schnellen Auffinden von Programmen. 

Um ins Menü des »Happy-Disksorters« zu gelangen, betä- 
tigt man bei der Frage nach dem Programmnamen einfach die 
RETURN-Taste. Daraufhin erscheint am linken oberen Bild- 
schirmrand ein Pfeil, den man mit den Cursortasten zu dem 
gewünschten Symbol bewegen kann. Dienochmalige Betäti- 
gung der RETURN-Taste führt die Funktion aus. 


Suchen 

Man gibt entweder die Eintragsnummer, mit der jedes Pro- 
gramm versehen wird, oder einen unverwechselbaren Teil 
des gesuchten Programmnamens ein. Sollte ein Eintrag mit 
dem Suchbegriff übereinstimmen, wird er auf dem Bildschirm 
ausgegeben. Durch Drücken der RETURN-Taste gelangtman 
wieder zum Ausgangsmenü zurück. 
Listen 

Die eingetragenen Namen in abfallender Reihenfolge auf 
dem Bildschirm ausgeben. Ist der Bildschirm mit Namen 
gefüllt, wird nach Betätigung der Leertaste die nächste Seite 
auf dem Bildschirm ausgegeben. Mit der ESC-Taste gelangt 
man jederzeit zurück zum Hauptmenü. Die Ausgabe eines 
bestimmten Eintrags bewirkt die RETURN-Taste. 
Sortieren 

Nach dem Index oder dem Namen sortieren. 


Eintrag löschen 

Die Auswahl der zu löschenden Daten erfolgt wie unter 
»Suchen«. Der gesuchte Programmname erscheint dann auf 
dem Bildschirm und wird durch Drücken der Taste J gelöscht. 
Disketten-Menü 

Mit diesem Symbol gelangt man in ein weiteres Menü: 

1. Auflisten des Directorys in Laufwerk 1. Der Listvorgang läßt 
sich mit der START-Taste oder CONTROL-1 unterbrechen. Am 
Ende gelangt man mit einer beliebigen Taste zurück ins 
Untermenü. 

2. Speichern der im RAM-Speicher vorliegenden Programm- 
namen. Es genügt zur Erkennung des Dateinamens die 
ersten acht Zeichen einzugeben. Die RETURN-Taste bringt 
den Benutzer wieder zurück ins Untermenü. 

3. Laden einer auf Diskette gespeicherten Programmliste. 
Die Eingabe erfolgt wie unter Punkt 2 beschrieben. 

4. Alle Eintragungen einer zu katalogisierenden Diskette wer- 
den automatisch in die im RAM-Speicher vorliegende Datei 
übernommen. Durch Drücken irgendeiner Taste, ausgenom- 
men 1 bis 4, gelangt man zum Hauptmenü zurück. 

Liste drucken 

Es besteht die Wahl zwischen einem zwei- und dreispaltigem 
Ausdruck. Als Drucker ist ein Epson FX80 vordefiniert. Auch 
hier gelangt man mit Betätigung irgend einer Taste zum 
Hauptmenü zurück. 

Fehlermeldungen« 

Sollte ein Fehler auftreten, springt das Programm automa- 
tisch ins Hauptmenü zurück. Wählt man anschließend die 
Funktion »Fehlermeldungen«, wird der Fehler auf dem Bild- 
schirm beschrieben. (Andreas Kubelka/wb) 
Zeie 7040 - Die Zeichen, die zwischen Anführungszeichen stehen, einen Ausdruck im 
ng Diese Einstellung ist für zweispaltigen Ausdruck mit 80 Zeichen pro Zeile verant- 


Zeie 7100 - Umschaltung auf Ausdruck mit 132 Zeichen pro Zeie und in drei Spaten. 
Es müssen also stets die Zeichen zwischen Anführungszeichen geändert werden. Am besten orien- 


PROGRAMM-STECKBRIEF 


Programmname Happy-Disksorter 

Programmtyp Uiity 

Programmiersprache ‚Atarı-Basic 

Programmlänge 10034 Byte 

für Computer 800 XL/130 XE 

zusätzliche Hardware Diskettenlaufwerk 

Eingabehilfe Prüfsummer 

Bemerkung Das Programm besteht aus zwei 
Teilen. Zuerst Listing 1 starten und 
anschließend Listing 2. 

Leserservice Diskette (DISKSORT.BAS/ 

ERTL DISKMENU.BAS) 


ESeET BE? 


ur. >>> Programm <<< 


H 
3 


AUTORUN 

STRATEGO 
B5>APFEL 

BSMITCH 


RRRBRRE OR ORREDRER 


Das »Happy-Disksorter«-Menü 
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1228 DATA.O, 12,204,192,9,0,31, 17, 252,0, 


Listing 1 zu »Happy-Disksorter«. Bitte mit dem Prüfsummer eingeben. 


Zeile Beschreibung Variable Beschreibung 
10bis 200 Initilisierung us —entnäl ie Adresse der Maschinenroutne zum 
300bis 390 Eingabe des Namens mit Anzahl der Sektoren und dem I | 
Index D$ —String für alle Daten 
400 bis 440 Menü-Auswahl AS —Nimmt Eingaben entgegen 
1000 bis 1050 Auflisten der Namen P —Position des Pfeils beim Auflisten 
1500 bis 1810 Suchen eines Namens aus der Liste C —Zähler 
2000 bis 2110 Name in der gesamten Liste suchen D —Enthält Kanalnummer, KREBS EN OR OnBe ee 
2500 bis 2510 Eingabe des gesuchten Namens VKma:0. Bächim, 
lu - Kanal : 1 = Drucker 
‚3000 Parameter setzen für Listen in abfallender Reihenfolge ER 
4000 bis 4040 Sortierroutine 
[Tr] —Enthält die zu bearbeitende Position In D$ 
5000 bis 5200 Name löschen E I Per 
6000 bis 8050 Disketten-Untermenü o 
ü —Für Schleifen und Pfeilposition beim Menü 
6100 bis 6140 Schreiben des Directorys 
6200 a A —Nimmt Eingaben über GET entgegen 
5 ENT —Anzahl der Daten in D$ il 
6410 bis 6440 Liste abspeichern/laden — 
STA —Die Startnummer beim Listen oder die aktuelle 
6500 bis 6530 Übernahme des Directorys in die Liste Position 
7000 bis 7130 Druckerausgabe So = Stopposition beim Listen 
7400 Name in Kanal D: schreiben PIMI —&hbt die Ustrichlungan 
— 
7500 bis 7510 _Namennummer in Kanal D: schreiben F — Gibt beim Suchen die Position an, an der die Eingabe, 
7600 Überschrift in Kanal D: schreiben gefunden wurde 
‚8000 bis 9200 Fehlermeldung R —Restwert für die Druckerroutine, um die Startnummer der 
‚nächsten Spalte zu finden. 
Programmbeschreibung 
2 —Startnummer der 2. Spalte beim Drucken von 
Einsprungadressen für Maschinenroutinen | 3 Spalten 
‚Adresse 38786 String search Variı 
jablenliste 
|Adresse 88925 Bubble Sort : 
| 188 erarnıcs e:rore 71@,0:0PEN #1,4,8,"K 1080 DATA.160,0,185,0,1,19@,2,1,134,218, 
3":POKE 752,1 <HE> 198,1,1,200,280,200,132,216,168,136,177, 
118 POSITION 3,10:7 "DISKETTE-INALAUFWER 205,209,2@7,240,12,165,218,208 <TP> 
Ka1UND-RETURI <oL> 129@ DATA4,144,16,176,46,144,44,176,10, 
120 GET #1,A:CLOSE #1:0PEN #1,8,0,"D:MEN 200, 2@2,208,234,164,216,196,217,208,210, 
U.PIC" <0z> 198,211,169,255,197,211,208,6,166 <DN> 
13@ POSITION 5,12:7 "SCHREIBEsFILE4==>.D 1100 DATA.212,240,11,198,212,165,208,133 
MENU. PIC" <HZ> ‚286, 165,2@7,24,144,172,165,213,240,4,13 
148 TRAP 300 <KS> 4,213,208,148,96,134,213,168,0 <MW> 
158 FOR I=1 TO 1214 <MB> 1118 DATA.177,205,170,177,207,145,205,13 
16@ READ A: B=B+A <wo> 8,145,207,200,196,214,208,241,248,203,0, 
17@ PUT #1,AsIF 1/43=INT(I/43) THEN FOKE 8,2,0,0,8,8,2,2,0,2,120,0,0,0,0 <GE> 
40485+P ‚PEEK (40485+P) +128: P=P+1 <AI> 1120 DATA.0,62,0,0,0,0,2,8,8,8,0,0,0,0,0 
18@ NEXT I <EH> ‚2,0,0,0,0,0,0,0,0,0,0,2,0,0,0,16,2,0,0, 
3@@ POSITION 10,14: IF B<>91431 THEN ? "ı 0,56,0,0,0,0,0,54,0,0,0,2,112,0 <uv> 
»aDATASFEHLER" <RS> 1130 DATA.0,0,0,0,2,0,0,2,0,0,8,0,0,0,8, 
31@ IF B=91431 THEN ? "FILESGESCHRIEBEN" <HH> 0,0,0,2,0,0,0,32,0,0,9,8,56,8,0,0,0,15,& 
320 ? 2? zEND <MmP> 2,0,8,8,0,56,8,0,8,0,2,2,0,0, <HV> 
1000 DATA.216,104,104,133,204,104,133,20 1148 DATA.0,0,0,0,0,0,0,0,0,0,2,0,0,0,64 
3,184, 133,209,1@4,133,208,104,133,215,1@ ‚15,192,0,0,72,15,192,8,8,13,182,0,0,0,8 
4,133,214,184,104,133,205,104,104 <EW> ‚56,0,0,8,31,255,252,0,0,15,255 <vs> 
1019 DATA.133,296,169,0,133,212,169,8,13 1158 DATA.249,0,0,0,0,0,0,8,0,15,128,0,@ 
3,213,162,0,160,0,177,214,224,0,208,2,13 ‚128,8,64,0,0,128,8,64,8,8,15,54,248,0,0 
2,216,209,208,208,43,232,228,206 <0s> ‚127,255,248,0,8,24,31,252,0,8 <PH> 
1020 DATA.249,22,200,196,205,240,5@,72,1 1160 DATA.13,255,176,0,0,38,0,0,0,0,8,7, 
52,72,158,168,177,214,133,207,104,168,1@ 2,0,1,0,8,64,0,1,0,8,64,8,8,13,128,192,8 
4,165,287,24,144,219,72,165,204 <yu> ‚2,127,255,248,0,0,24,31,240,0 <PY> 
1030 DATA.133,213,165,203,133,212,184,16 1178 DATA.0,15,255,240,0,8,127,128,8,0,0 
2,0,224,0,240,17,224,0,240,6,160,0,177,2 ‚7,226,8,0,18,1,248,127,240,2,1,248,127, 
14,162,0,164,216,200, 196,285, 208 <DP> 240,0,15,8,192,0,8,12,204,192,8 <av> 
1240 DATA.186,165,208,24,101,205,133,2@08 1180 DATA.0,24,31,248,0,0,13,255,176,0,0 
‚144,2,230,209,165,203,208,6,165,204,240 ‚255,192,8,8,8,4,32,0,0,28,1,8,8,16,4,1, 
‚7,198,204,198,203,24,144,156,96 SXx> 8,0,16,0,@,8,192,8,8,12,204,192 <ax> 
1058 DATA.216,104,56,233,3,133,217,184,1 1198 DATA.8,0,24,31,252,0,0,15,255,240,@ 
33,204,104,133,203,104,133,215,184,133,2 »1,243,224,0,0,0,4,32,0,8,28,1,8,8,16,8, 
14,104,133,210,104,133,289,162 <RM> 1,8,8,16,0,0,8,248,0,8,12,204,192 SNK > 
196@ DATA.Q,104,104,157,0,1,232,228,217, 1200 DATA.0,0,31,255,252,0,0,13,255,176, 
208,246,56,165,209,233,2,133,209,165,218 @,1,225,224,0,0,8,4,63,248,0,30,63,15,25 
‚233,0,133,210,48,108,165,299,133 <20> 4,16,16,63,15,254,16,2,2,8,8,8 <LF> 
107@ DATA.211,165,210,133,212,165,2@4,13 1218 DATA.0,12,204,192,0,8,31,247,252,0, 
3,206, 133,208,165,203,133,205,24,1@1,214 Be a Zn RO .D Sa mn Man arms 
‚133,287,165,208,1@1,215,133,208 <TT> 3,8,2,16,0,33,0,2,16,0,0,62 <HC> 
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2,13,255,176,8,0,7,192,0,2,8,4,8,8,0,2,3 
3,0,2,16,8,35,0,2,16,0,8,28,0,8 

1238 DATA.Q,12,204,192,0,0,31,193,252,8, 
@,15,255,248,8,2,15,128,0,0,90,4,0,8,8,2, 
33,255,194,16,0,33,255,194,16,8 

1240 DATA-0,8,0,0,8,12,204,192,0,0,31,22 
7,252,0,2,15,255,248,2,8,31,8,8,8,2,4,2, 
8,0,2,32,0,67,248,0,32,0,67,248 

1250 DATA.0,0,0,0,8,2,12,204,192,0,0,31, 
247 ,252,0,8,2,0,0,8,0,62,0,8,0,8,4,0,8,8 
,8,32,0,66,0,0,32,0,66,0,8,0,8 

1269 DATA-8,0,0,12,204,192,0,8,31,255,25 
2,0,0,127,255,254,8,0,62,7,223,124,0,4,8 
,8,0,8,32,8,66,0,0,32,0,66,8,8 

1278 DATA.0,0,0,0,0,12,204,192,0,0,31,24 
7,252,0,8,96,0,6,8,0,8,6,216,96, 
248,0,0,32,0,126,0,8,32,0,126,8 
1280 DATA.0,15,188,2492,0,2,12,204,192,8, 
@,31,227,252,8,0,127,255,254,8,8,62,7,22 
3,124,0,0,8,0,0,0,32,0,64,0,0,32 

129@ DATA-0,64,0,0,13,182,192,0,0,12,204 
„192,8,0,31,227,252,0,8,127,235,254,0,8, 
62,6,195,12,2,0,0,0,2, 
1309 DATA.0,2,52,0,64,8,0,15,188,192,0,8 
„12,204,192,0,8,31,227,252,8,8,127,255,2 
54,0,0,62,6,223,124,2,0,0,0,8,0 

151@ DATA-63,255,192,8,8,63,255,192,8,8, 
13,182,172,2,8,12,204,192,0,0,31,247,252 
„2,0,127,255,254,8,0,8,0,8,8,8 

1320 DATA.8,2,0,2,0,0,0,0,8,0,0,0,8,0,8, 
15,188,248,0,8,15,255,192,9,8,31,255,252 
„2,0,12,0,48,8,2,8,0,2,0,32,79 

133@ DATA.195,152,15,15,15, 
5,15,15,15,15,15,15,15,15,15,15,15,15,66 
164,156,2,2,2,2,2,2,2,2,2,2,112 

1349 DATAL2,112,2,2,2,2,2,2,2,2,2,2,65,1 
1,156 

Listing 1 zu »Happy-Disksorter« (Schluß) 


i® DPEN #2,4,0,"Kz" 
<RZ> 2@ US=ADRL"IICTL „ILCTL MI/LCTL BIXh"LCT 
L PI-ZLCTL EriLCTL CILCTL MIRICTL CHHICT 
L_MUSCTL CHHLCIL MTECTL CHHLCITL_MIVICT 
<TR> L ChZETL_ MIXLCTL CH-Vd"icTL PIILCTL LI 
ETL MRICTL CIVB).ETL MP/ECTL BILCTL . 
BLSTT 7 4 
<au> 48 OPEN #1,4,2,"D:MENU.PIC": I=USR (US,387 
86,1214) 
S® POKE 788,18:FOKE 709,1@8:FOKE 718,0:PO 
<EQ> KE 82,0:POKE 560,11 
20® DIM DS(249B8) ‚As (25) 
398 TRAP S®B:POKE 559,34:CLOSE #1:POP :E 
<ıs> R=PEEK (195): POKE 195,8:7 "{ESC CTL <IES 
© CTL =ITESC CTL =>":LD=LEN(DS) 
„7,255, F1@ POKE 752,Q:FOKE 39977+P,2:POKE 399797 
<05> +P,2:7 "aauusNamen:ı";: INPUT #165 As: 
NtAs) 
328 IF L=® THEN 408 
<L6> 325 IF L<25 THEN FOR I=L+1 TO 25:A$(I,D 
NEXT I 
27 DS(LD+1,LD+25)=A$:D$(LD+26,LD+3@)="2 
,32,8,64 <CA> 
33@ POSITION 1, "Sektors. z INPUT 
#165AF:L=LEN(AFIzIF L=® OR L>S THEN ? ."C 
<ır> ESC CTL 23"3:60T0 358 
S5@ DF(LD+29-LEN (AF) „LD+28)=A$ 
36@ POSITION 4,7:? "Index-:-"3z INPUT #16 
<wm> sAs: IF LEN(ASI<Z THEN ? "{ESC CTL 23" 
0TO 368 
380 D$(LD+29,LD+S@)=AS(1,2) 
<BD> 398 60TO 328 
5,15,15,15,1 400 POKE 752,12? "{ESC CTL <> 
<KN> 
Listing 2 zu »Happy-Disksorter«. 
<1Q> Bitte mit dem Prüfsummer eingeben. 
(Fortsetzung auf Seite 74.) 


<BT> 


<NZ> 


<Yu> 


<DC> 


<IW> 


<AD> 


<BL> 


<UN> 


<SCc> 


<BS> 


<IB> 
<Dx> 


<IN> 
<CJ9> 
<mU> 
<KB> 


M-P Gottiob/G. Strecker 


sonal Co BTX professionell eingesetzt 
2. überarbeitete Auflage, a n 
Oktober 1985, 200 Seiten u Shen 


Das Thema Datenkommunikation und 
Rechnernetze (Telematik) wird mit zu- 
nehmender Computerisierung unserer 
Gesellschaft immer mehr an Bedeutung 
gewinnen. Wer die Entwicklung der 
Zukunft nicht verpassen will ste sich 
daher in dieses wichtige Thema recht- 
zeitig einarbeiten. Dazu bietet das vor- 
Tegende Buch die beste Möglichkeit. 
Von Spezialisten und den- 
noch leicht verständlich führt es in das. 
komplexe Gebiet ein. Für entsprechend 
Vorgebildete Loser werden auch die 
physikalischen und mathematischen 
Zusammenhänge erläutert 
Best.Nr. MT 730 

ISBN 3-39090-07:8 DM 58,- 


Dieses Lexikon mit seinen mehr als 
1700 Stichworten, mit gut lesbaren 
Erklärungen und Hintergrundinforma- 
fonen, mit einem ausgearbeiteten Ver- 
weisungssystem und der Gegenüber- 
stelung englischer und deutscher 
Fachbegriffe stelt ein unentbehriches 


zu den einzeinen Süchwörtern machen [Nachschlagewerk und Hüfsmitteifür die 
85 zum kjealen Nachschlagewerk für Arbeit mit Microcomputern dar. 
Beruf, Ausbädung und Hobby. Best-Nr. MT 758 


DM 32,— 


ISBN 389030-114x. 


Markt&fechnik 
BUCHVERLAG 


Ha PaselSunte 2, B0I3 Haar di inch 


Wer sich mit dem Gedanken tragt. selbst 
BTX-Anbieter zu werden, dieses neue. 
Medium in sgendeiner Weise berufich 
und geschäftich zu nutzen, der benötigt 
\woitergehende Informationen. ls see 
ne Einführung zu geben vermag. Dasda- 
zu nötige Wissen vermitelt das vorie- 
gende Buch Es hit Ihnen, volig neue 
Mogiehkeiten in Marketng und Wer- 
bung, bei Dienstleistungen, beider Infor- 
mationscistrbuten und bei Schulungen 
Zu erschließen, kurz: das neue Medum 
BTX professionell das heißt kostensen- 
end und gewinnbringend einzusetzen. 
© BTX professionell nutzen! 

Best.Nr. MT 530 

ısen 2922120520 DM 68,— 


73 


418 POSITION 1,1:? "{ESC ESCHLESC CTL -> 
“:GET #2,AsPOSITION 1,1:7 "ı":1=I+5#(A=4 

2 AND 1<37)-5#(A=43 AND 1>2) 

430 IF A=155 AND (LD>® OR I=27 OR 1=357) 

THEN CNT=LD/3@:0N (1-2) /5+1 GOTO 2000,18 

20, 3000,4002,5000,6000,7200,8008 

448 G0TO 419 

1000 STA=CNT:STO=B:PLMI=- 

1910 D= ? "tESC CTL <)":G0SUB 7608: 
? "tESC CTL =tESC CTL =3":POKE 39977+P, 
112:POKE 39979+P 112 

1820 GOSUB 7480: ? 

1030 STA=STA+PLMI 

1035 IF STA=STO THEN GOSUB 1109:60T0 308 
1048 IF PEEK(84)=19 THEN GOSUB 1189:60T0 
1010 

1050 GOTO 1028 

1100 FOSITION 3,P+4:? "{ESC ESCHLESC CTL 
*3":GET #2,A:IF A=32 THEN RETURN 

1103 IF A=45 OR A=42 THEN STA=STA-PLMI:S 
TO=Q+ (CNT+1)# (STO=®) :PLMI=-PLMI=RETURN 


1108 POSITION 3,P+4:7 "u" 
1119 P=P+1=(A=6i AND P<14)-1*(A=45 AND P 
>@) POSITION 3,P+4:? "EST ESCIHLESC CTL 
> 

1120 FOR I=1 TO S:POKE 39975+I+P,2+11@*( 
I=2 OR I=4):NEXT 1:60T0 1188 

150® LD=@:POSITION 3,P+4:FOR I=@ TO 2:7? 
"TESC CTL +2"; LD=LD+19" 18 (PEEK (II) -16 
NEXT IzLD=(LD-1)#38:7 "tESC CTL CI” 
1595 IF LD<® THEN 308 

151@ POSITION 12,3:7? DF(LD+1,LD+25);"tES 
C TABIKESC TABILESC TABILESC CTL =I{ESC 
CTL #IXESC CTL #IXESC CTL *ITESC CTL *3C 
ESC CTL #3";D$(LD+26,LD+28);"ESC CTL =} 
{EST CTL =ITESC CTL +IKESC CTL +)XESC CT 
L +2"3D$(LD+29,LD+3@) :POSITION 8,3:60T0 
sı@ 

2000 TRAP 2020: G0SUB 2500:G0T0 2038 

2020 GOSUB 2100 

2030 STA=STA-P:IF STA<1 THEN STA=i 

2049 STO=CNT+1:PLMI=1:60T0 191® 

2108 F=USR (58786, CNT ‚ADR(D$) „ADR(AS) „3@, 
LEN(AS)):IF F=@ THEN 300 

211@ STA=CNT-F+1:RETURN 

2508 7 "EST CTL <IXESC CTL =IESC CIL = 
IXESC TAB)GebexTermaoder „Nummer sein{ESC 
CTL =3":7 "XESC TABI===>4"3: INPUT #165A& 
2STA=VAL(AF):IF STA<1 OR STA>CNT THEN 3® 
© 

2518 RETURN 

3080 STA=1:STO=CNT+1:PLMI=1:G0T0 101@ 
4008 ? "LESC CTL <I" 

4018 POSITION 8,6:? "{ESC TAB}1.=>.Namen 
“sortierenESC CTL =)"37 "{ESC TABIZu=>« 
Index«sortierentESC CTL =?":GET #2,A:POK 
E 559,0 

4020 IF A=49 THEN 1=USR (58925,ADR (DS) „3® 
„CNT,1,28,0,29,2,8) 

4050 IF A=5@ THEN I=USR (38925,ADR(D$) „3® 
„CNT,29,2,0,1,28,8) 

4040 POKE 559,34:60T0 308 

5000 TRAP 5020: G0SUB 2508:G0T0 59380 

5020 GOSUB 2108 

5030 ? "EST CTL =)":GOSUB 7408:7 :? "{E 
SC CTL =ITESC CTL =IXESC TABITESC CTL > 
{ESC CTL *ICESC CTL *)Name.Loeschen«(J/N 
)":GET #2,A:IF A<>74 THEN 308 

5100 IF STA=CNT THEN 5208 

S11® D$(STA«3Q-29 ,CNT«3B-30) =D4 (STAxSO+L 
„ENTxS2) 

5200 D$(CNTx3@-29)="":CNT=CNT-1:G0T0 SO® 
@ 


6008 ? "LEST CTL <ITESC CTL =JLESC CTL = 
IXESC CTL =3{ESC CTL =3TESC CTL =)XESC C 
TL =3{ESC CTL =3XESC TAB}1.=>.Directoryt 
ESC CTL 7 "{ESC TAB}2.=>.Speichern{E 
SC ETL "{ESC TABIS=>aLaden{ESC CT 


Ik Listing 2 zu »Happy-Disksorter« (Schluß) 


<RA> 


<uc> 
<NG> 
<IP> 


<yYm> 
<WK> 
<5X> 
<RV> 


<HN> 
<oD> 


<NS> 


<MN> 
<AX> 
<NC> 
<NW> 


<EQ> 


RN> 


<00> 
<IS> 


<MR> 
<00> 
<XP> 
<Y6> 
<LF> 


<BV> 
<MU> 


<UK> 
<PH> 
<JD> 
<KT> 


<BZ> 
<ZE> 
<va> 
<sQa> 


<Ta> 
<x5> 


<FX> 
<XI> 


<WwT> 


<ES> 


L =3":7 “{ESC TABI4.=>.DirstESC ESCHLESC 
CTL *3.Nane":GET #2,A 

6040 IF A>48 THEN ON A-48 G0TO 6180,6200 
6208 ,6508 

6058 GOTO 308 

6100 OFEN #1,6,0,"D:=.x" 


611® ? "CESC CTL <3":? :? „"FilenamesEx 
tanannnLaenge":? „"{CTL MISCTL MISCTL MI 
ZCTL MILCTL MILCTL MIECTL MILCTL MIAACCT 
L MILCTL MILCTL MarnasstCTL MILCTL MIC 
TL MILCTL MILCTL MILCTL MI" 

6120 INPUT #1;5AS:IF A$(2,2)<>"." THEN ? 
2? „A$:GET #2,A:CLOSE #1:60T0 6290 

6138 IF PEEK(53279)=6 THEN 6138 

614@ FOSITION ®,4:? "(ESC SHIFT DELY":PO 
SITION 18,17:7 A$(5,10) ‚A$(11,13) ,A$(15, 
17):60T0 6128 

6200 POKE 752,8:7 "tESC CTL =I{ESC CTL = 
?Filename-?={CTL_Y> (8.Zeichen) {CTL Yz=" 
5:INPUT #165A$:POKE 752,1:1L=LEN(AS)zIF L 
=® OR L>8 THEN 6008 

641® AS(IDISASCL,LIEASL,DI="Di" AHA 
S(11,1B+L) ASCI+LI=".STR" 

6428 IF A-5@ THEN OPEN #1,8,0,A$:? #15LD 
645@ IF A=51 THEN OPEN #1,4,0,A&: INPUT # 
15LD:D$=".":D$(LD-1)=D$:D$ (2)=D4 

6448 I=USR (US,ADR(D$) „LD):GOTO 6000 

6500 POKE 559,0: 
651@ INPUT #15ASz IF AFl2,2)< >". 
KE 559,34:CLOSE #1:60T0 #000 
652® D$(LD+26,1LD+28)=A$ (15,17) zAS=As(S,1 
DEAStMmtann nn DECLD+LLD+ 
25) =A$:D4(LD+2N="nn" 

6530 LD-1D+39:6010 6510 

700@ 7? "tESC CTL =>{ESC CTL =IXESC CTL = 
IXESC CTL =IXESC CTL =IESC TAB) 14==>.Dr 
uckes2.Spalten{ESC CTL =) "{ESC TABIZ 
=>.Drucke_3.Spalten" 

7020 GET #2,A:IF A<49 OR A>S@ THEN Sa0 
7038 D=1:C=B:0FEN #D,4,0,"P:":IF A=5® TH 
EN 7108 

7048 ? #D;"{ESC ESCH!ICTL , 
:G0SUB 760@:? #D:? #D 

7045 STO=INT ((CNT-8.19/2)+1 
7058 FOR I=1 TO CNT 

7060 STA=I:50SUB 7400: STA=STO+1:GOSUR 74 
@0:7 #D:NEXT 1:60T0 308 

7108 ? #D;"{ESC ESCH!ICTL D}":GOSUR 7608 
:GOSUB 7600:G0SUB 760@:? #D:7 #D 

711® STO=INT (CNT/3) :R=CNT/S-STO 

7128 FOR I=1 TO CNT:S2=14ST0+1*(R>®) 
7130 STA=1:G0SUB 7408: STA=52:G0SUB 7400: 
STA=52+STO+1*(R>@.5):G0SUB 7400:7 #D:NEX 
rı 

7400 GUSUB 7500:7 #Dz3A$;".";D$(LD-29,LD- 
SI; "aa" ;DECLD-4,LD-2) 5 "a"; DEALD-1,LDI 5". 


:G0SUB 76088 


A"3 :RETURN 
7582 C=C+1:IF C>CNT THEN ? #D:CLOSE #1:6 
0T0 3@@ 

751® At="9090":A$(4-LEN(STRE (STAY) I=STREL 
sta): TA#30: RETURN 


7608 ? #D5"Nr-annnrd>>uProgrammallluuuun 
„nSek“Inaun"; RETURN 

8008 TRAP 9200: POKE 39982,7:POSITION 8,7 
=? "auu";:G0OSUB PDBD+ER 

"{ESC TAB}{ESC TABI{ESC TAB}CE 
SC TAB}Drueckeseine,Taste":GET #2,A:POKE 
39982, 22 POKE 195,8:G0T0 598 


9900 ? 

37?“ 

9138 ? 

9144 ? 

9162 ? "„DISKETTE-VOLL“ 

9163 ? ".SYSTEM.FEHLER" 

9165 ? "FILENAME.FEHLER" RETURN 
9167 ? "FILESBESCHUEZT" RETURN 
9169 ? "DIRECTORYVOLL" RETURN 
9178 6010 9165 


9173 ? "FORMATASCHLECHT" RETURN 
9208 ? "AuFEHLER2";ER:560TO 8882 
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Submission - 
ein Weg 
voller 
Gefahren 


Böse Zungen behaupten, es gibt keine Helden 
mehr. Falsch! Auf gar mancher Diskette eines 
Atari 800XL1130XE kämpfen sie für das hohe Ideal 


der Freih. 


ur die Besten werden überleben. Unter diesem 
N Motto gilt es sich zu beweisen, denn in den tiefen 
Gängen des Labyrinths im Spiel »Submission« lauert 

der Tod mit seinen tausend Gesichtern. 

Ziel der Mission ist die Befreiung einer Frau. Der Weg zu ihr 
führt durch verschiedene Ebenen, die durch Leitern mitein- 
ander verbunden sind. Das Klettern ist dabei noch das ein- 
fachste, aber es wäre kein Action-Spiel, gäbe es nicht viele 
Gefahren, die einem das Leben schwermachen. Daplagtman 
sich mit Krokodilen, Spinnen und Minen, auch an Selbst- 
schußanlagen fehlt es nicht. Unterwegs kann man Gold- 
schätze aufsammeln, für die es natürlich Punkte gibt. Pro 
gelungener Befreiungsaktion gibt es dann einen Bonus, Die 
Abwechslung kommt nicht zu kurz, denn je nach Belieben 
stehen sieben verschiedene Schwierigkeitsgrade zur Verfü- 
gung. Ein weiterer Pluspunkt ist die leichte Handhabung des 
Spiels. Die einzelnen Spielvarianten ändert man über die 
SELECT-Taste. Durch Drücken der START-Taste istman gleich 


mitten im Geschehen und nur noch auf die meisterliche 
Handhabung des Joysticks angewiesen. 

»Submission« ist zu 100 Prozent in Maschinensprache 
geschrieben. Daraus ergibt sich auch die Schnelligkeit des 
Spielablaufs. Bevor Sie jedoch das Listing zu »Submission« 
eingeben, müssen Sie unbedingt den AMPEL aus diesem 
Sonderheft abtippen. Das erleichtert Ihnen die Eingabe von 
‚Atari-Maschinensprach-Programmen. Automatisch werden 
sämtliche Tippfehler erkannt und auf dem Bildschirm ange- 
zeigt. (Peter Raab/wb) 


Peter Blümer, der Autor des Spiels »Submission«, ist 
unseren Lesern schon bekannt. In Happy-Computer, Aus- 
gabe 1/85, veröffentlichten wir bereits ein anderes, aller- 
dings in Basic programmiertes, Spiel »Die Schatzhöhle«. 
Mittlerweile ist für ihn das Wort Maschinensprache kein 
Fremdwort mehr, wie das Spiel »Submission« beweist. Die 
Umsetzung von der Idee zum tatsächlichen Spiel ist vor- 
züglich gelungen. Obwohl das zugehörige Listing ent- 
sprechend lang ist, wird sich der Aufwand, es in den Atari 
einzugeben, wirklich lohnen. 


PROGRAMM-STECKBRIEF 


Programmname Submission 
Programmtyp ‚Spiel 
Programmiersprache ‚Assembler 
Programmlänge 11688 Byte 
für Computer 800 XL/130 XE 


Diskettenlaufwerk oder 
Kassetten-Recorder 


zusätzliche Hardware 


Eingabehilfe AMPEL | 
Bemerkung Labyrinth-Spiel | 
Leserserice Diskette (SUBMISS.COM) 


BBB0:FF FF 00 @6 BA Q6 A9 OMar> 2130:02 82 02 @2 
@O@B:0D 44 @2 85 41 BD C& 82<22> 02 02 
AB1B:8D C5 82 BD CH @2 AD S@EB> 85 83 
@018:92 85 CE AD SI 92 85 CF<72> a5 85 
Q020:AD BB A9 46 91 CE CH AIcA2> 03 85 
8028:37 91 CE C8 A9 @& 91 TE<CA> 20 ou 
0030:C8 A9 @& 91 CE CB A9 07<36> aa aa 
@038:91- CE CB A9 86 91 CE CEXBF> va om 
@040:A7 96 91 CE A9 36 BD CA<0Q> vo 20 
@049:02 A9 @1 85 09 AB 5O A2<39> mo 00 
0050:06 A9 86 4C SC E4 DB EE<AS> 20 08 
Q058:C7 02 AC SF E4 @D a8 ma<BA> 20 ao 
QOsn: a0 Da 00 2C 2F 21 24 29<92> 2190:08 02 00 20 
@069:2E 27 0@ 00 20 20 00 20<B9> 2198:20 00 0a au 
2070:00 00 00 20 20 2a @n Ma<7a> B1AB:00 20 am am 
0078:20 00 00 20 20 22 2a aa<7a> Q1AB:00 ua ma a0 
2250:00 Da 20 am ma um aa an<am> 2159:47 49 02 02 
@UBB:00 90 FS F5 EZ ED E9 FI<BD> @188:01 20 00 a0 
Q090:F3 E9 EF EE 28 02 @@ 2a<B1> 21CB:00 45 45 a0 
2098:00 aD mm ma 2m aa um Ma<9u> ALCB:AS 93 a5 95 
DBAB:QB DO 20 DO DO 2O Da ma<am> @108:23 09 00 mu 
GRAS:ER AD DO ma mm aa mm 22<cAa> Q1D8:98 45 45 a@ 
AORN: 359 MM 3@ 25 34 25 32 QU<IE> G1EB:92 92 a2 u2 
@0B8:22 2C 35 25 2D 25 32 @X<2E> ao 2a 
QUCB:20 E2 82 EI 02 2Q @% OC<ac> as 05 
@0C9:00 HD 28 00 22 00 22 FB<SC> @I1F8:05 92 @2 o2 
@0D8:22 AB SF A2 EA A9 96 20<CD> 2200:00 20 2a 2a 
@UDB:5C E4 AC 72 49 00 00 Uu<aA> 0208:00 22 20 20 
QUEB:0D DO 20 O0 DO BB 20 QX<ED> @210:05 aa ao 20 
BBEB:2B AO 2m AR Da AD am MXcER> 0218:00 aa aa am 
Bera:2m va aa aa aa aa ma Da<ra> 0220:00 @2 82 2 
BBFE:00 OO 20 2a Da Da 2m BR<FB> @228:09 aa aa am 
G120:29 2m au ma nm am am Maca2> 0230:00 aa aa 20 
B1R8:00 DD 0D DD DB BD MD Bn<an> 0238:03 00 DD 28 
2110:00 20 20 aD DO aa ma AXxı2> 0249:00 va aa am 
@118:00 20 20 00 00 20 2m aa<ıa> az 22 a2 
2120:00 90 00 O0 00 00 @D 00<22> 0250:00 20 ao am 
0128:20 20 20 DO 2a m2 92 92<58> @258:00 am ao au 


@2 92 02 02<32> 9260:05 20 20 2m mm um 0D Bn<Es> 
@2 82 @2 02<3A> 0268:00 00 20 20 20 ma aa ma<sc> 
03 05 05 ms<a1> 0270:00 ®2 02 @2 92 m2 02 m2<73> 
03 05 05 ms<an> 0278:02 02 02 02 02 02 a2 W2<7C> 
03 00 aa Ba<3D> 0280:02 @2 u2 @2 Bi 85 @5 03<83> 
20 ma 00 BB<5A> @209:05 85 05 85 05 85 05 @3<8C> 
20 00 00 BO<&2> 0290:05 83 85 03 03 03 83 93<94> 
@w 00 08 Ba<un> 0298:03 00 00 ®D 20 9F @D AR<S8> 
20 DD am 8n<72> @2AG: 08 FF 2® 20 00 90 BO BRcac> 
20 00 20 Ba<7a> 02A8:00 B2 92 @2 Gı 2m am macas> 
a2 20 2m au<a2> 02B0:08 9F ©D AM DO 9F m Bucnn> 
20 ma 00 Ba<an> 0259:00 20 au 2a am us 95 as<D1> 
20 ma 20 09<92> 22C0:05 2m 20 20 00 00 00 @R<A6> 
am 00 08 99<9A> @2C8:00 09 00 0O 00 FB 23 FS<ES> 
00 00 20 aRcA2> 02D0:24 00 u0 ©0 00 02 02 D2<FA> 
@@ 44 44 00<42> 0208:01 20 20 2a 0a 2a aD MRX<SD> 
@2 02 ®2 O%xE6> 22E0:90 00 00 20 ma om um mn<Es> 
2a ma aa mu<se> @2EB:00 03 03 03 05 um um amcS6> 
c7 4A 95 0331> 22F0:00 20 20 20 O0 00 00 BR<FA> 
a3 Ft 22 F7<EB> 02F8:00 DD 00 Da HD 02 @2 M2<OR> 
am aa an ma<6a> 2300:01 20 0D aa Om am ma mac<as> 
AB AC 02 82<62> 23508:20 DO 20 20 00 00 00 DR<DE> 
21 80 28 BR<cc> 2310:20 08 DE 03 03 90 00 @0<ıA> 
@@ 46 46 Da<ac> 2318:00 2Q 20 DO QD 2m 2O BR<IE> 
03 03 03 @scca> 0320:00 00 20 20 00 2a am aa<26> 
21 0m 0m ma<as> 0528:2® 28 25 2C S® GE @E BE<TB> 
20 20 20 Ba<aa> 2550: 0E 0D 0 aa 0m um aa wa<sD> 
@® 83 03 0x21> 2338:90 20 20 22 20 20 20 MR<SE> 
20 00 08 88<95> 2@740:00 09 QD ma 0a mm um mn<as> 
20 a2 aa aXıc> @348:20 20 00 ma 2m Da aa MX<4E> 
21 00 08 aa<an> 2550:00 00 00 00 00 0D 0 D9<56> 
20 20 00 aa<2c> 0558:@2 02 @2 92 @2 02 a2 W2<3E> 
Ba 03 05 03<49> @360:02 02 @2 @2 02 02 02 m2<66> 
22 DO Da BR<BD> 0568:92 92 92 ®1 03 85 835 BI<6D> 
20 20 00 80<44> 0370:05 83 05 05 03 05 05 @576> 
@1 20 DD aR<3s> @378:03 05 035 83 93 05 03 BS<ZE> 
2a 20 20 B8<54> 2339:00 DB 00 DO 20 HF QD Bac<aı> 
a0 05 85 8%71> @z28:20 DM Da Da DM ma am AM<2E> 


Listing zu »Submission«. Bitte mit AMPEL eingeben. 


ÜRBSSSERSHEKSSSBSSEISRURSRSRABENSSSHRURSERE KRRISSEIRRASERESSRÄSTERBSNÄENEHRE 
RECHTEFTTITTTTEERELTERFETTERTLEPEETITE FETTE RRROBSIERFSULSRUSERENEERÄBEERNKE 
3385 28 


UNEHDIRBUASNBUEENSIUUNDERNAUURFREURPARRAKLEGRGLESFERENGE 
HERSSEREIHTSREISTTTEISTEIBIESESENHBHERRESTSERHLBSETEBEBEEIIHERHIRIRRALITERTITHBLTBEBFRENGENE 
SRHESESSERSERSSSSSSIHBIGTSIRBSKRERTEBREREREBSBRTERBESSSSELFALSSEIRFATBESTISEHETURRRENBASARS 
ERREESEIEÄHANZEETSTBASSETHLUBBRTRBSTSBRERARBENBER a 
SUSEBEETTRANNSESTTTTEHSEBERISNBABAHERTAHEBTBBBISBBEIBSESBIFFRERTRERTEBESETTTERTERAURSRERR 

HABSEEISSITTEESTTTRTTTSETER 8 


KEINEBBIIESJREIBIIISASSSSHIISRGEEREREBE SHIT EEReBeEEEIEEBERBSESSSSFP28Ehernkurere 
KEEER FEFEREFETSTITTEEREEETH 88 PHTFERRRER 38 
VORERDERGRSLERBELELRBEBERER SSIESUGSENSAESUSSASGESSGSSANASDBERDLDESSLRGERSENBELEE HEN 

EERSTTERTTEREISTRTFSTEEIFETFERRFELERTFETPITFERERKITERFRFETTREFSEERELEEFETTERRERRSET FEFRT 

SRESSSUISRSUDSSSSSSLEBSERÄDURHSLHESANANKSUSUSNTUNSUDNUNKAUNSSBBRELEBBENBRÜBENNENSBRSERBEN 

SIESEIHBESTHUBREEEBIBTTEMETRERSEBFAÄBBELLLHTITINENLLOTTTTESENERBEELEBEHNENLBSEHERHTEBERENN 

SBILLISBITTSTLÄSTESETTHTERTEREBRÄGBHRERALSINITCHELTRGTTRRNSSCHEBELBSENTBHABTTNERHLESTESHE 

SBIIBBERBIBBELTLTELTTHESTATRGRRSLBFERLRINSIURIERTINTRSEHHRSSATEBEHBSSENNBABLTHESHTESTETHR 

EPFETEFTITTITLETTELELELTLELTTRTETTTELTITTTEEITETTERFERRFTRFFFTETTERFERTRIUEFTTELFREITERTRR 

ERFETPSTITEITEETFELFEITTEBTETTITSEIEITTRREEITTETERERTOPOTEIS ER TFERTTETLERTSTTEITEEITTLEER 

BELBIESTTSTEHTLETTERSTSETRUREHEHRNERLBBRSTIULTNTLTITHTUTGRRDSREBELHBEENNSRESERIRBABTTRBEN 

ATIITITITTTEOHTRANERESBSTRELELGuEnEE PERTELTESELTTESTT ETEEINNTERKCGEITIT 

FR EFHATRINGESITER FEEFEEERIERSE 
SaladaanaaaasabScnunßbsshLaSBESBEEASEBSSEGEEEN 
EEFLTTISTERLETTERTTEEFTETELTITELEITETSSETSEETEFERTTTTRETTRRET ER EI EEITEL IS ETEIEELEELEIEEEE) 


SESSARSAIEISRTHTHEIBIEHSSSLSSEBESSERTEEKESBSRSSERSEHHERSRRRESESSSESSSEENEREETESEEgesges——‘8 
SERILHRLISTBRRESSHESBSHHSEHELSBRSZTTSTIBERSBSTETERSEHHEREEERBSEESEERSERELESEHEETENERESERSR 
SISSIRTRBTIRBBSERBSISEBETIZSSTSHSBESETZTTSTHRSESBSOHHEBERERSSERESESEESSEEREEEESEREBERERSs 
BEINISSERSERHRISKSBISHRSEIEHBSEHRERKEEBTIBSHSSERSBESEHESERBESERSTSERSETSESENESEERERTSSSESES 
BEBIBISKHEEBSBIBERBEGHRESEHERSSESTEERESTISBERERSBSSHHEBSSEHESETESERSRESEENEBSSEHEBERESESSS 
SHESISRERESBIBSBRBBESEBESEBERSEHSTLTZTISBSTEBEBSSSEERERSEERESERESESSESESEE:EBEEHERERESERES 
SIEITIHERETBSBIIRSBSEHSSEEBTESSTLETEESEH NAEH TSESSESTEEEHEITEESEEE33 5333355 EABGESSGERELEBER 


EIRIRILSLGEGEHEGELLIESLUSSEEILELIIUIGSESTGTS RUE IL ILS IDNLIGSRURLSLHTSURRIREN Sea 


(Fortsetzung) 


ission« 


Listing zu »Submii 
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A 


SNEITETENTSTESTISBIITTERNTMTETTSEFFH BER EEFTSERSSHEER ESS TKEESSHERSTESITIERIRIT 
BRBANSRNERNERRARERNANSESNSHRESSHASSLSRENDNDRHÜNGHNUNERUKGBHENLNEBERSEERESBUSSASSRBAHHBENEE 
FEREREFEEEFETRREREEEEGERSTTTETESTTIELTSTRTETSEREITTEPTERFPEITSELESTELT TESTER PTEFEI TIER 
BBBEBERARRTBBBRRARRRARTEISHHFFRHRRUNERLUHERIBEHNHERBERLEHEBAHSISHEHFERKBESEIRZARSERRRENBRGE 


BBBBEBRBARANBBBARRRARRARRRENGESRNSEGBRABERBSLERICKEBBBREBTEHTRSUBERSASISLSEBIISHSIBAHBARHEANE 
BEBBBBRBARKBBBRRRRRARRRHIIHERRBRRERSEHBRELZITREERESETRÄARSERAHBEUEIFTEGSBSEUBLSETESBRUNFE 
BBBBBBTERRRBEBRRRARARRHRNRATBSCENEERHESSNSSGENENKBEUABSKERETHÜRSERRKLBRSUEBBENEAIEBETERFE 
BBEBBBBERRRBEBRRRARRRREBSGEHRERRERKHBARLRSBITBELEBBRSHRESTERHRBIHHEBBESBRSRASBTARKREASERZ 
BBBBEBBTRRÄBEBRRAARARRAÄESHAHASRUNHHFUBBNSTTERBARTHRSERKBSERRSNGLERFELSEESESSBRESTERENESRS 


SÄRTTROSSERERERSSENERODDRRLANSSRNLECNDSSERÄRERRSREDOBARRELDESSOUHE 


” PPPPR) jERHRUELELBUBUEUBURLBUBE RUE E BIER BE 


i 


BERHRSSSEGASERBSESBOEBRSSCRSURRERSERASSOACSESHESCARNAEESEDBBERBSSSÜHRALSHIDSSEBABSULRERE 
NEBULRSRIBERBERKBRRSHERSBSBBBGSUERLSRURRERERERENNBENNANENENNSRSESEBEHnnnnnnRRGEDNDBENNNBE 
HABRUSSENERTEEBEBBBETESTTTBTLUNUFERHRIRRRRRRRECHARARBHRRARAHERSHEBENAERBHEHEHEBERBBBANREB 
HABEISRSSBLEHRHEBEBRRBTELTBBBUBRERKRIKREBERKRRSEHABERRREHBANARSHERERANAREEHEHRBLRBBBAAAEB 
BRSHURRSLBRABEBEHBBÄERRTTTBETERESKRRTERIKRIBTRRERASERTHRAAAABISHESBHARGEBERSHBERRBBERAAEB 
BASHLIRSLEREBERBLESTETLTTGETBSTERRKSBITRBSIRRERRBRERARBRAAHRRRIEHRERUHEHBBESREBRLEBERAAEB 
BRBBURLEBEREBESBLEHTTSTERTREBSILARBRERÄRKRRRRRRERBBRBBIBHESAANIBUHEESHEHERUBEGGEBEBBRAABE 
PRELTEITFEITTEFETTEITTTEETTITEITLETS EISSSSTERSTERITTRFEITTERETERFFEITFEETTTEITEETERLEETER: 
PTEFHEFFLEFEREREREFTRRRTIFTERRRFETFERSFERTTTEHTREFFTERRERTTEPFTREFERFFEFFEETTFRRRNE REN 
0 son so 
HUEBESGEERERSSCEEREERLESGGSEEESEREEESEEGSSRBSSESBSSTEESGEREEESEREEERSERERE ENTER NE 


@a<62> 
30<76> 
BR<28> 
2C<EB> 
@2X8E> 
@7<30> 
axas> 
zwcas> 
@0<a9> 
ZB<6B> 
02<05> 
AZ<3a> 
ca<ıD> 
IMXa6> 
ARSC> 
SF<66> 
F@<67> 
30<62> 
SC<ac> 
78<D7> 
28<07> 
3E<S8> 
60<20> 


8 
BURBSSEUNBBIITRUKBSBENRSBKENBEHSABUBSBEKUSELRNGSETBNBGURBBSTRHRBRURBSTHBBRHERBCHREBANBEGT 
EBRBSBERSBSEREEIHSHSBUTBEHIRBEHTRSESREBEASEESHSSETENBEATEBTSRERBRUBSSSARBLRRBENEBSEHHEREO 
BRORZEBRERTIRTEIBBUSSEEBTBERBESBTEBERRBSRTTETHHTTERIHBHSHBEBETREBERGBBEHTEBLRHISSRBSELKEITES 
RERYSSRBRHAFSAHHBBUSSEEBÄBENBESTEIEHREBITETEERSESERHEHHERBERÜRSELTEBENTBEBNERISEERSERKEIEE 
ABRNSTEEHESHEBABBSHEUZARISERBIBTSTERRERSATREBABISKTEBESEBBBRBRBENBBSEHERBEAHTESÜRKENHETSE 
BIHEBSNEREBLGBERNBSCHBABNBENTDSABKESIBRBARFEESRUHEBTOLSHEBBREBBEHEBSERBEBEHRTTEIRSEEHRTEE 


KEBESGGCSGDESLGSSEEEBEERDEGEEERTESEHEESBESS EEE BSR ERDE EEE RSSEEEEEREEEEDEDEEEE RN EREEERS 


ion« (Fortsetzung) 


Submi 


ing zu » 


Li 


Zerf 


1449:8D 6B I@ AD 9S DB L9 94<17> 20 8D 87 25 8D 9Q 2%56> 19F0:3@ BD 08 DO ED Bi DB AE<ıB> 
1448:D® 85 A9 @1 BD &B 30 OXKF&> 66 23 8D 6D 23 69 ADCF> 19FB:6F 5@ DD 12 32 DM 89 EE<TF> 
1459:05 D® @5 A9 @i BD 65 32<5D> DO C9 2a DO 34 A9 BI<as> 1ABB:6F IQ 20 26 56 4C OB SCCBB> 
1458:35 ES 35 30 6@ AD 6B 30<B4> 7F 39 AD 70 30 C9 78<5A> 1AB8:DD BE 32 DO 89 CE 6F S@<DF> 
1468:C9 @1 F@ Bl 6B AI BB BKE6> 11 A9 98 ED 90 25 an<aı> 1A10:20 26 56 AC OB SC 60 AD<BS> 
1468:14 2® 52 2D EE C@ 82 CE<@Q> 23 AE 6F 30 A9 95 9IKEI> 1A18:2® 77 34 AD BF DB C9 AX<CA> 
147@:C1 @2 AD CO @2 BD @@ D2<9F> 1748:DD AA 68 AD 70 30 C9 GE<TA> 1A28:F® 5® 20 7B SB AD 78 82<9B> 
C8 aD @1 D2 AS 14 0945> 1750:B0 1 AI @@ SD 89 25 BD<CB> 1A28:C9 @D DB 12 AD 85 3@ CHEA> 
DB E9 A97 00 BD 80 DRC78> 1758:66 23 AE 6F 30 A9 92 9D<DR> 1A3Q:@1 FO OB EE 71 3® A9 AX<BE> 
@1 D@ CE 7C 48 20 52<2D> 176@:DD 4A AD 98 25 C9 a0 DE<aA> 1A38:8D 85 SO 2® 3535 SB 2@ L6c68> 
28 BB 55 2@ 77 33 AD<CO> 1769:1® AD 9® 25 CD 66 25 Da<Aa> 1A42:38 AD 78 @2 C9 GE DB 12<3C> 
48 C9 1@ D® 83 AC FRxFc> 1770:08 A9 94 AE 6F 30 9D DD<78> 1A48:AD 85 3® C9 02 FO BB CE<7A> 
2@ 52 2D AC A& 49 AD<a0> 1778:4A 44 38 CC 38 AD EB Anc1A> 1A58:71 30 A9 08 BD 85 3@ 20<35> 
D@ C9 92 Da 05 A9 aIXE7> 1780:8D FB 4A 6@ AE 75 3@ BD<D4> 1A58:33 3B AD 85 32 C9 89 D@<AB> 
6B 30 C9 85 DA 95 AHA» 1788:BE 2F 8D 6A 5@ 6B EE 76<Mn> 1A6@:11 AE 6F 3@ BD 9B SM AD<ED> 
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Vorsicht Falle! 


Sie drehen in einem Autoscooter Ihre Runden. 
Plötzlich rast Ihnen ein anderer Scooter entgegen. 
Aber keine Panik, »Crazy Scooter« ist nur ein 
Spiel. 


eder fährt gerne einmal mit einem »Bleifuß« auf dem 

J Gaspedal. Aber bitte nicht auf echten Straßen. Wenn 

Sie sich so richtig austoben möchten, dann starten Sie 

doch Ihren Computer und laden Sie das Spiel »Crazy Scoo- 
ter«, Hier können Sie Ihre Reaktion unter Beweis stellen. 

»Crazy Scooter« ist zu 100 Prozent in Maschinensprache 

geschrieben. Es stellt eine Scooterbahn auf dem Rummel- 


dritten Level kommt eine neue Schwierigkeit ins Spiel. In der 
Spielfeldmitte erscheint eine Zahl, die die Anzahl der einzu- 
sammelnden Bonuspunkte angibt. Diese Punkte erscheinen 
aber ganz willkürlich an irgendeiner Stelle der Bahn. Für 
jeden eingesammelten Bonuspunkt bekommen Sie 50 Punk- 
te. Sollten Sie eine Spielstufe mit zu wenig Bonuspunkten 
beenden, verlieren Sie wiederum einen Scooter. Ab Spiel- 
stufe sechs wird es noch interessanter. Dann behindern Sie 
noch Straßensperren, denen Sie geschickt ausweichen 
müssen. 

Jeder Level unterscheidet sich vom vorhergehenden. 
Immer wieder gibt es neue Hindernisse. Stellen Sie doch eine 
eigene Highscore-Liste auf, denn nur wenige werden die 
Stufe zehn erreichen. 

(Oliver Schmitt/wb) 


platz dar. Sie steuern das blaue Fahrzeug, der Computer das PROGRAMM-STECKBRIEF ] 
rosarote. Ihre Aufgabe besteht darin, alle Punkte auf der Fahr- | Programmname Crazy-Scooter 
bahn einzusammeln. Achten Sie aber auf das computerge- 5 Fe 
steuerte Auto! Bauen Sie einen Crash, ist eines Ihrer drei rogrammtyp se 
Leben verloren. Rechts neben der Scooterbahn befindet | Programmiersprache Maschinensprache 
sich Ihre Spritanzeige. Geht Ihnen der Sprit aus, ist's ebenfalls Programmlänge 6030 Byte 
für ein Auto vorbei. 
Sollten Sie dem anderen Auto einmal blitzschnell auswei. | Computer SHORLNSO RE 
chen müssen, betätigen Sie einfach den Feuerknopf. Ihr Auto | Zusätzliche Hardware Diskettenlaufwerk oder 
beschleunigt dann augenblicklich, was sich allerdings auf Kassettenrecorder und Joystick 
den Spritverbrauch auswirkt. Achten Sie also auf die Ben- Eingabehilfe AMPEL 
N EI EN ee Bemerkung Sehr schnelles Aktion-Spiel 
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melt, gelangen Sie in die nächsthöhere Spielstufe. Ab dem |!?serserice DIKBESSSOTERSOM]) 
FF 40 90 IB 91 20 O8<B4> 0178:90 C9 @0 DU 09 ZU EE JE<FA> @2F0: 1A 90 C9 03 FO SB C9 Ba<11> 
20 EC 91 20 7D 99 20<AB> 93 NF OR<ED> G2F8:FO SF C9 85 FO 43 09 06<32> 
92 20 3SB 92 20 EI 9C<BA> E 20 71<75> 0O300:F@ AU 354 95 2F 94 C9 07<X61> 
EB 8D 30 02 A? 88 SI<AF> 39 94 AA 8588:F0 SA C9 88 FO SE C9 09C9H> 
02 A? 80 8D F4 82 MRXXIE> 31 MD AXBS> 0310:F® 62 AC 77 90 A9 92 BD<SB> 
n2 06 A? 07 20 SC E4<99> @2 93 ARXIE> 03518:2B 90 8D 1B 90 A9 11 BD<Bi> 
FA 8D 1A 82 A9 Ca BI<15> AA BA BD<SB> 0520:D5 8N A9 10 BD D6 BA 20<40> 
DA 20 ZE 92 20 BD 95<20> 60 A BO<S2> 0328:7C 9D 20 1E 92 A9 85 BD<a7> 
28 8D 81 D2 AC Di 92<39> 8D B1 82<46> 03350:2C 98 AC A7 93 99 01 BD<2E> 
84 02 C9 08 DO BE AD<9B> a7 IE BI<ES> 0338:2C 98 AC A7 93 A9 02 80<28> 
90 8D BA 90 AF SC BD<44> 84 D4 BD<AE> 0340:2C 98 4C A7 93 A9 02 8n<aa> 
D2 AC 9C 92 A9 SA BIXBCH 90 CI BRXScH @348:2B 98 A9 03 8D 2C 9M AC<AF> 
D2 AC 9C 92 na 02 BI<E4> 90 AD 20<14> @530:A7 93 A9 OA BD 1B 90 ARCHE> 
4C BB 90 20 45 997 AQ<DE> DD 89 60<29> 0558:04 BD 2B 90 A9 @1 BD 26<78> 
Bi CB AA 28 53 99 40<SC> aa 99 20 0%12> 0560:90 4C A7 93 A9 ®2 8D 2C<C3> 
90 Aa 28 BI CH C9 05<28> 20 32 99 68<92> 0369:98 4C A7 93 A9 05 BD 2C<BF> 
ac C9 04 FO 48 C9 0%60> Pr AD IF DA<CS> 0370:9@ AC A7 93 A9 04 BD 2C<BB> 
29 19 2F Fo 28 C9 38<C0> 86 93 DO FA16> 8378:9@ 18 69 10 BD DD 89 AC<B9> 
39 60 20 6F 99 AB BR<DF> Li 98 8D 10<92> a AF AA BD B1 D2 AZIEA> 
CB AA 20 61 99 EB DS<AB> 8D ıF 90 AX1S> BD D2 93 0D am D2 AX1A> 
2C EB 04 FO 28 EB 0OXE6> 8D @A 8D 1B<CD> 85 14 A9 FF BD 1E DE<SF> 
07 Eo 2F Fo o8 ED 38<79> 68 22 90 AD<7B> 14 C9 82 D@ FS EB ER<BS> 
19 60 AC CD 95 A9 OR<63> oc7 24 20 6E<A4> De E6 60 1D IF 25 28<3A> 
32 90 20 BR 95 EE 32<C1> 68 20 68 EE ZU<AD> 2F 35 3C 48 48 S1 SB<9CH 
AD 52 90 C9 05 DB F3<20> AE 20 00 9D B@<3D> sC 79 80 90 AZ B& CI<32> 
09 92 AC 7F 91 68 HKAS> eo Ba EB AD 18<42> FS AZ a0 BD F& 95 M<BC> 
68 AC 47 91 AD 05 MK<Sı> 60 ac 45 7 00 UI<B6> 89 EB EB 11 DO FS 68<70> 
@B FO OB C9 87 FO BC<FC> 9 8D 92 20 20 FE<B9> 08 21 08 2D 90 25 B4<3C> 
DE FO OD AC 30 91 ARTE> 20 74 20 94 20 74<77> 04 2F 00 36 BO 25 BR<B9> 
AC Al 91 A9 O1 AC A1<a0> 28 EE 9E 39 94 AC<BS> AZ 80 BD 15 94 9D DE<ACH 
AI 84 AC a1 91 AI 03L49> 9C CE 22 AD 22 99<57> EB EB RB DW FS 60 355<98> 
41 91 68 68 AD 89 98<17> BO 60 EE 9a AE ZUXES> 28 37 21 25 28 2B 2F<42> 
eı SC 91 37 92 F@ B%X9CH a9 00 9D 83 EB BA<FA> 26 AZ 0@ BD ZE 94 9D<AF> 
c8 92 CD 84 98 FO EF<72> CB EE 28 AE 20 99<72> BA EB E@ GB Da FS H@<2B> 
AD GA D2 29 83 C9 BRXF2> oo 9D 00 E® BA F&<aa> 35 38 94 2B 95 34 @0<52> 
@B C9 81 FO 8C C9 92<A1> EB AB 10 68 AD 78<F8> 26 080 26 35 25 2C AXD1> 
BD AC &n 91 A9 OB AC<F6> 8D 05 90 BF 91 2XEB> AA 9D DC BA EB EB BB<AE> 
91 A9I 07 AC 6C 91 AKOA> 90 A 08 4D AD 05<B4> F& 60 A9 EF 8D 85 D2<32> 
4C 6C 91 A9 OD BD 0%X4B> c9 @B FO c9 07 F&XB1> 
nF 81 BD 09 90 28 BF<2D> c9 BE F@ ACC FC 92<61> 
AN? 00 ED 097 98 AC DI<ED> CD 96 AC 92 20 81<25> 
A? aa BD 24 90 8D 82<CO> 02C0:96 4C Di 92 28 72 97 4c<37> 
20a 20 IE 20 87 94 28<45> 82C8:Di1 92 20 1A 97 AC DI 92<54> 
94 20 74 95 20 EE 9E<DE> 0200: AD 1A 98 C9 09 FB SA EE<9A> 
39 94 4C B2 9C AD OF<40> @2D8: 1A 9@ 20 7C 9D 28 1E 92<D5> 
0165:9@ C9 9D FO DI 60 A9 BREF> @2E0:16 AD 1A 90 69 1@ ED DXDI> Listing zu »Crazy Scooter«. 
@170:80 @1 D2 8D 9$ D2 AD 2C<F4> @2E8:BA CE 1B 9@ CE 1B 98 AIX2E> Bitte mit AMPEL eingeben. 


81 


u Fa u 


AD<2C> 
BSCFE> 
BB<B5> 


6F<FB> 
61<82> 
ZUSE> 
IICA> 
ANB2> 
99%76> 
F7<8D> 
TE<6S> 
7a<B8> 
FR<FB> 
FE<TF> 
F@<DS> 
FB<SE> 
82<D1> 
D535> 
2O<ED> 
ARF9> 
DR<95> 
AC<56> 


ACC9A> 
9862> 
AB<6D> 
2044 > 
Da<AS> 
82<39> 
AD<CB> 
FB<A7> 
82<21> 
AD<FS> 
FB<B1> 
78<20> 
AD<OB> 
FB<CR> 
82<D9> 
AD<79> 
FB<C7> 
6EB<BE> 
POI2> 
AZ<FB> 
FB<AB> 
ZB<AA> 
SRCOr> 
SR<CE> 
AIIS> 
B3C3a> 
AD<7B> 
AICBB> 
CD<SE> 
TBLEI> 
CC<76> 
6R<1D> 
@3<C5> 

CD 1E<D5> 

AD BC<ED> 

18 BA<ac> 

90 18<92> 

IC 9@Cas> 

AD @D<aA> 
BD<CE> 
BD<88> 
EBCBF> 
BESCC> 
@2<07> 
80<28> 
BD<ES> 


Ri 
& 
BIZLZERRFIGNSTSELTTRETRTFLSTREIRETITHBBFSERTITRLEREBTÄEE BRETSRERERSSEE 
NEBSBERFEHETREBBAFETRSEFSLEEFRSETSERLTFEBEBHESERTITEBISBERITTRERSRTBELRERTTAÄR 
BEREREERESNZERESFBLETGRSSHESHAGEBSHRSUESHIBERSRTBEFHESRRITSTHBTEBRATEELSRRBTERDRR 
VERBBSBESTETEFSFSBEGASERBERTETTBEBERTBRTBASEREBSHRSRERRFERBBIBESTREBEBSEEIERHRESTAE 
FEBEBBBTEINBSBANZBTENSHSENEESEHESSBEBEBBTELREFIERGEERSRTEBBIFIHASLFHISESEBATHELNE 
BERRFUBRFIEBLTFFETTBÄTBTLRFERSSEBTTRFENFEISRIFTSERTSTFABEFRLSEHREBSTEBEFEHLSARSRENT 
RERERBRESETLERUSTRLEIABRSRSERSEERSTSEEEEIEESBLERTEBRERLRATSBETERSSTEHUBBEBSRIETAE 


EEEEEREELISSSSSSSLLSDGSSESEIEHEERESSEESESHLSSEREGGEESTRSSHEERREGEEE EEE RE SEEN 


99 AD 135<93> 
2F C9 B4<Fa> 
21 09 2F<a3> 
1 68 Ac<a7> 
7 EB 84<12> 


Listing zu »Crazy Scooter«. 


Bitte mit AMPEL eingeben. 


(Fortsetzung) 


HERRSERLSSTBEINITHRHEBEFEIBBEELERTEESSNSLERFSRTESSTEENSTERBEREIGSBABFELHSRETBEBSERIFEBEHTE 
RRSUREBREUBBERSRBEFFBBBSTETBSSLEEREATERBEFFELISTBERFSRAFSBERBFTITERNBESEEHSUISHEBSRBRAEEE 
BEETREBEFBEBLTERETHBAGTRELPTLRESTESERIFSTETEERIGTFESFLSSSITESTEBBETERRSISHRSBETBESEHARTENE 

BERRESBSEBLERFBBLTREFBETTSTFFBTEREBRESETSERFEBSERTBRIGTBRERHTBFTTBBSELGBBHBBSNEHSEFEBFFER 
BEIRRZLERERFEHFFATFESETELIBTSELFSFEETTBRFROBFTERTRIEBERBERELARFESIBLBSETTIENEBSBERBBESERAIELN 
EISRTERSETLERLHEREBÄTHTESENEBRENTERBSREFFERELRESRSELESBTBELEBLEBHUSERIUSSBEHEERR 


EEBERESSBERESSERSSESGGSSERTREGGSEBERERTEESDERSERTREERERSEEREEEEE 


gägE 
BRBES 


SERSTEERTITERTFEITPIFDERELEETETEERITEITERERDELESSTNISEERRERERFBETEERTLEFTRERRILERTEISDENN 
ENENSBSSERSISRERNSSISSBLSGERANSRBDURANHUBSSRUROESURBERRHRSASCSSSTRRRSÄRNBRINRLONNGARREESE 
SESBISHRTIRENRSFSIHTTIEISIHEIIERHSRBILTELESIFTSFREGBEULLLTTLTSRLLRTNÄGTBEIGFEBERERFERTRREHR 
SEISIBHNSSREHECKHSRISTEEERLIRLALCHELHESRTITISINRAHULTIISLTSBRLERBBUFSETSINREHFERENSSRRFRFESE 
PESTSTELPEELFLELETECEITTETTENTTELEITERFPITEETTETFEERTTETTERETELTEITTTTERTFEREITTERGTITET 
BISISEONFLEBAALIREHRIEHREBKENECHKRIFBEREHFERBESHEPFLREUBBEITESTASELLERRBSEBTEBELHRZREBERE 
SÜSTCHEHSIESFBAENERÄRBERRFRERSERBSSRERSÜRTENSELUFELBEBRTLBSSHERELBBBENHLEBEUBTERLIERHENER 
RSZBLSENIREAKEREHLBASRRRESSTSEHRERTHLÄDERRTHLIRRBERTEESSFEERERUTBESPREBERRFERTHSRFBISEREH 

seranatg2gügsarzgss SEESBBSSBREBEHEERSERES 

ERNEHD BECKEET Bspsnsasirss ä 

SSSSSSasassnananal. Sadadassasasadasdses 


82 


ISSFERELETRSERTEETT FENSTER EEFESSITETETRTTENEIITHITERTEISTFITTTTRFETFFTRS HT 
BEBESSSSSAHUHBSBSBORAESLUBSSDSNBELSOBELBBSBSELELENSENSUSSLEESESLSRSRDUNESGAEIUR 
FEEEERLEISSTITEEREFEITPERERRERRETRFERFTTFTTERTTEITERRERTTETTETTTERERTERITEFIIT IT Ne 
SIBTEFEIRTISEEZATEBTEHHSTSERARREERERRBESESTTETHHBSEETERTFENSFEHRSSSTURBITREERTEREE 28 
SESEZZZERREEIEET2232333H3333FETZTTTETRTTITTTEHSH LSILEHERIEBSTEHEPERSSERRRESSSLERLRR 32 
BETTSATIRTKRESNSSTRBREBÄTSTEERKERSERRARRSSSSEHEHHSSETTERSFEUSBHEHERIHERFEATESESTERE Flet 
SHEBZZESRHREEISTAZSLEERETINSILISEZSERTSESEEETSÜILHELTISTEESTHNTIERHSTHBSSIFAEELREE S:s 
SESBSTAIRELSELSESHuE NEE TREE GE LEHE ANDERE EEFOB EA ERERE BERBERE E65 
EaunppaRz N888838358838983888838383388883383852 352 E4K 3 IH 
aSaRans ii ERBENEBSNDSURNDEERASEANDERE 358 
agsggggz EIEETSSTERTELFENETTTEREST PTEIE 
ESanasaı PERISTSTEELFTTLFITEFTFETTTEE Kasana 
NEHSREENERSLERBSSSESSERESEREEESEBERESERESEEBBESHESRESERESSESESSEESEBENERRESAS 
KEBZISREHHSSANNANELESFHELERSSTESSESHSSERBEESERSESEHESEBEEETLSRELSSELEESERRSSEESEHENEENSHRE 


NEHBBBAURNDEN-BANTEBEUREBERGSSTSBENBEEUEBEGERBELEUBEGSEBSEBEBERBULGEBUSEGBRUGEBEURBENSANE 
KEHRSBEERSRARSSNHELSHÄARSESERSSSSERHSEREBEEBSBSESSRSSSEHSSEERSERSSESESHBSSEHHESSBHNESNANES 
IHRBLUDEBAURRERHSERBHENBENGISSSBBUBBBESBRESBRSBBESBERBERDBUGBERDERDEBEGBEBUBESBBURBERENEE 
BRREBEAESHRAKENNABESERNNESLEBSSSERERSEESEHEBSBSEHEBSSTSHEBERSESESSESESERSESBREEEHHESTRISSS 
SSBEhBECENNANSSHKHBEENKBNZEUSSESSESESSEEBSTSESESESSESEREBESEENEEBEEEHBESEHSBBESRHSEESBBESHEBEN 


HEESELEEEERESSGCHSGERERRELREREEE GaBEERSBERESEREREGGSSREAESSABSS 


11 


BagnsHanBSRuRBSRBSSSARSSKSGRRCHLERSIRSHBBREGOSEBBSERBERBSAORSERGSBEHRRSEBRRASHSGHKBARRFER 
GSLSSRGUSEELRUURDLEALSHBREANDBEUEOOSLDANSELBLORUFENTENDBIGEHGKESBRLELSDUDEUSNDEDARLHLE CU 
TRBESLESBBIAHURFUFFERBETARTERISZLIBSSSEESILFELRIRTIREHELEHBFINLTERFYBESAEBERHENEFESEHEEBFATHTB 
BEGZTARFRESBARRERRELBESFETFESRERIBEBEBFLILFLHIHTEREHIKRTSSEHESIHRTBSRIELTERTEEEEEFEF FESTER 
BIBITFRSFSEBRRERFRERFENSFESTESAREBEBERTERLFITZRISRBHRTHSTSBIRURESBSEISSEHTTHNERFAEHLETBERE 
BBSBTWEBSEREFKRNRAFTTSBENRTEERBHEISTESUFBIRTRLRATESABHLSSTHBBESRHESSESILSBHETBIIRLEEBSBAIER 
BBESHUFEEFEERRENRETETEURBEIBURIBGETSGRFETBRLRLEIREUREHSINEESSNELBETBEGSSTCHENATBSBESERERE 
BISBFFELSCHBATHAFGHEBBTASBEEESEBHSERFTFESTERBALFARTRRBHFBBERNSRERLESFSIETKEHEBFLSTBRTBEER 
Sg5Rt08S5 4 TBELRSARFURCETOGEFTGRLLARRFFUNHSUFEREH BEBESSUSSBESSANSSELDGSEAG 

} FH 2a FR 
FERBREESPEEITEEL EEFEEFEEEEFESEPEEE ERBE GÜGNUESEEEESBERDEGGREN: 


3 


[60] 


Sy 
a 


85 


BSF5R% 
8 
FBAIESARIUBZIIERFBERSBERICHISEBIBMISE 


BraBanbsE 
SERSSRIBHBESBIKBZIIHEIIBREESESEENDTEN 
389938338 


SUHRBES2IHEIEER 


» 
E 


1518:68 
1520: 8D 


ASEIUARSEERIERRIGEBEREAET 


SUBERGBENBZINHBEBEBETSAER 


SESEHgBNEHg38B3553N8869337358333358383 
SESISSIBFSSTBISSAIBNBSARBASBEBHHTEFER 


SBIHSENSBESTENERIUEREUNEESB 
BERBESEIBSSEHEEBESTSRINIHTE 


PEFPITTERFERTIFII TER 


EA88 


197 98 68 88C45> 7E A2 5B AB 68 29 D&<7D> 
A9 78 CD 18C23> 60 4C 12 7F AC ED 7E<DS> 
28 CD 11 9094» SD 7D A7 BA CD 1B 9BcF3> 
7F C9 Bl FRxF6> OF A? 68 CD 11 90 DA<C7> 
CD 18 98 Da<ac> 28 44 7F C9 Bi F@ 62<ED> 
11 9@ DO OXcEs> A7 88 CD 18 98 D@ BF<IE> 
81 Fa 27 &0<C6> &8 CD 11 90 Da OB 2&<B01> 
2@ AB 7D A2<59> 7F C9 01 F@ 27 60 A2<aD> 
AB 7D 60 EC<7D> AD 68 2@ D& 7E AZ ABCES> 
CE 11 98 DaC7S> 68 20 D6 7E &M EC 1821> 
44 7F C9 B1<BR> D® 11 CC 11 98 DB AC<A9> 
7D 60 68 68<5D> 68 28 44 7F C9 Q1 FO<CB> 
90 49 aa ED<DE> 4C 12 7F 60 68 68 ARSI> 
7C CE 11 can» 8D 18 90 F4 7E 4B 7F<C2> 
17 9@ AD 17<1A> 4A 7F A9 00 8D 17 9OCSB> 
25 66 C9 OXFF> 10 90 AD 1@ 70 ED QR<C7> 
BD 18 98 ARcza> EE 17 9@ AD 17 90 0%a7> 
20 79 7C EE<B9> F@ 28 &C C9 DO 68 68<95> 
FB 7D F3 7E<56> 94 ED 18 90 20 an 7F<D5> 
AD 17 9@ C9<B3> @0 8D 17 90 CE 19 9@21> 
C9 DO a7 aaca7> 1@ 970 8D 80 DB EE 17<D5> 
AA TF A9 BI<2B> AD 17 90 C9 10 F@ BSCAE> 
C9 00 28 S0<9D> 1750:60 09 90 A 80 ED 1H MXE7> 
18 98 D@ Gr<ı2> 1758:A9 @1 80 19 90 60. C9 @X7A> 
90 D@ @0 20<57> 1760: AD @A D2 29 Bi 60 AB BOC7F> 
FO 94 &B AX4E> 1768:AE 11 9@ B9 SC 7F 9D QO<CF> 
Da BF A9 7ECF2> 1770:84 EB CB CO 08 D@ FA 60CA5> 
08 20 44 7F<FE> 1778:00 E7 42 FF FF 42 E7 00<67> 
60 AZ 78 AMCBE> 1790:5A 7E 5A 18 18 5A 7E SAcA9> 
A2 78 AM BRCE@> 1788:E8 02 Ei a2 40 70 88 @@<A7> 
2@ SD 7D AX@D> Laenge 6230 Bytes 

DB BF A9 &8csa> 

28 20 44 7F<16> 

&0 A9 58 CDc17> isti 

4.48 CD Ticsoe Listing zu »Crazy Scooter«. 

84 7F C9 BI<bE> Bitte mit AMPEL eingeben. 

48 AB 60 20<52> (Schluß) 


Pacman mal 2 


Versuchen Sie sich gegen pfiffige Monster. Schla- 
gen Sie sich durch Gänge und sammeln Sie 
Punkte, alleine oder zu zweit. 


as macht mehr Spaß als Programmieren? Natürlich 

ein erholsames Spielchen. Und was macht noch 

mehr Spaß! Wenn zwei Personen gleichzeitig 

gegeneinander antreten. Bei »Twomaze« handelt es sich um 

ein Spiel für zwei Personen. Es ist in Maschinensprache 

geschrieben, verfügt über hervorragende Grafik und ist 
besonders schnell. 

»Twomaze« ist eine Pacman-Variante. Wie auch beim Origi- 
nal, besteht Ihre Aufgabe darin, möglichst viele Punkte zu 
fressen. Aber Vorsicht! Sie sind nicht der einzige, der sich in 
den Labyrinthgängen bewegt. Kleine, gierige Monster trach- 
ten Ihnen nach dem Leben. Allerdings gibt es noch Kraftpil- 
len, die Siebesonders dann nicht verschmähen sollten, wenn 
sich Ihnen einer oder mehrere der Bösewichte nähern. 
Haben Sie rechtzeitig eine Kraftpille verspeist, verfügen Sie 
über enorme Kräfte und können Ihre Gegner vernichten. 
‚Achten Sie dabei aber auf die Zeituhr am rechten Bildschirm- 
rand! Wenn diese nämlich abgelaufen ist, sind Sie wieder ein 
normaler Pacman und müssen sich mit äußerster Vorsicht 
durch die Gänge bewegen. 

Für das rasante Spiel ist übrigens mindestens ein Joystick 
nötig. Über die Tastatur lassen sich die Pacmen nicht steuern. 
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Wer glaubt, daß der gute alte Pacman schon zum alten 
Eisen zählt, hat sich getäuscht. Bei unserem Listing »Two- 
maze« gehen nämlich gleich zwei »Pacmänner« gleichzeitig 
auf Punktejagd (Mampf!). Schnappen Sie sich einen Freund 
und zwei Joysticks und schon kann die Labyrinth-Hatz mit 
einer aufregenden, neuen Spiel-Variante losgehen. Pacman- 
Spieler aller Länder vereinigt euch und tretet in diesem furio- 
sen Simultan-Programm gegeneinander an! Das ideale Spiel 
für Turniere und Punktspiel-Betrieb (Gobbel-Gobbel- 
Schluck!). 

Zur Eingabe von »Twomaze« verwenden Sie bitte AMPEL. 
Beachten Sie auch die Hinweise zu diesem Eingabepro- 
gramm. »Twomaze« läßt sich übrigens nicht von Basic aus ein- 
tippen. Dies gilt für alle abgedruckten AMPEL-Listings. Und 
jetzt noch viel Vergnügen bei der Monsterjagd. 


(Frank Ostrowski/wb) 
PROGRAMM-STECKBRIEF 
Programmname Twomaze 
Programmtyp Spiel 
Programmiersprache Maschinensprache 
Programmlänge 4219 Byte 
für Computer alle 
zusätzliche Hardware Diskettenlaufwerk oder Kassetten- 
rekorder, ein oder zwei Joysticks 
| Eingabehilfe AMPEL 
Bemerkung Pacman-Variante für zwei Personen 
Leserservice Diskette (TWOMAZE.COM) 
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Listing zu »Twomaze« (Schluß) 
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AMPEL- 
Version 1.1 


Mit AMPEL wird das Eingeben von reinen Atari- 
Maschinenprogrammen zum Kinderspiel. 


an, daß jedes Bytes korrekt eingegeben wird. Schon 
ein einziger falscher Wert führt meist dazu, daß das 
eingegebene Programm nicht läuft. Dies hat dann oft eine 
stundenlange Fehlersuche zur Folge. Deshalb haben wir für 
Sie »AMPEL« (Atari-Maschinen-Programm-Eingabe-Listing) 
entwickeln lassen. Und damit das Eintippen für Sie möglichst 
einfach und reibungslos verläuft, wählen wir eine spezielle 
Darstellungsform für Maschinenprogramme. Beachten Sie 
bitte, daß Sie zukünftig unbedingt AMPEL-Version 1.1 ver- 
wenden müssen, um Atari-Maschinenprogramme einzu- 
geben. Von Basic aus lassen sich solche Listings nichteinge- 
ben. Verwahren Sie also das Programm zu AMPEL sorgfältig 
undlegen Sie eine zusätzliche Kopie an einen sicheren Platz. 
Geben Sie zunächst das nachfolgende Listing ein. Verwen- 
den Sie dazu den Atari-Prüfsummer. Bevor Sie AMPEL mit 
RUN starten, sollten Sie das eingegebene Basic-Programm 
auf Diskette oder Kassette speichern. Hat sich nämlich ein 
Fehler im Maschinenspracheteil eingeschlichen, kann Ihr 
Computer abstürzen. Indem Fallmüßte AMPEL erneuteinge- 
geben werden. 


S peziell bei Maschinenprogrammen kommt es darauf 


Grünes und rotes Licht mit AMPEL 


Nachdem Sie das Programm mit RUN gestartethaben, wer- 
den zuerst die DATA-Werke eingePOKEt. Dieser Vorgang 
nimmt einige Sekunden in Anspruch. Danach müssen Sie die 
Länge des einzugebenden Maschinenprogramms eingeben. 
Diesen Wert entnehmen Sie bitte am Ende desabgedruckten 
Maschinenprogramms. Anschließend geben Sie den Pro- 
grammnamen an, unter dem Ihr Programm gespeichert wird. 
Auf dem Bildschirm erscheint jetzt »0000:«, die Aufforde- 
rung, mit der Eingabe der ersten Zeile des AMPEL-Listings zu 
beginnen. 

Betrachten wir eine AMPEL-Listing-Zeile aus der Nähe: 


0000:00 02 00 07 06 07 20 ED (F3A) 


Die ersten vier Zahlen (hier 0000) stellen sozusagen die 
Zeilennummer dar. Diese Zahlen sowie den darauffolgenden 
Doppelpunkt brauchen Sie nicht einzugeben. Danach folgen 
acht zweistellige Hexadezimalzahlen, die Sie dem Listing ent- 
nehmen. Die Eingabe erfolgt ohne Betätigung der RETURN- 
Taste. Der Cursor springt selbständig von einer Position zur 
nächsten. Leerzeichen sowie die beiden Zeichen »(« und »)« 
fügt AMPEL automatisch ein. Ist die Prüfsumme korrekt - sie 
muß auch von Ihnen eingegeben werden - springt der Cursor 
in die nächste Zeile. Falls nicht, ertönt ein akustisches Signal 
und alle acht Werte, inklusive der Prüfsumme, müssen noch- 
mals eingegeben werden. 

‚Außer den Hex-Tasten (0 bis 9 und A bis F), wird nur noch 
DELETE BACKSPACE zum Korrigieren des letzten Zeichens 
und CONTROL S abgefragt. Bitte beachten Sie den Kasten 
»Achtung Änderung«! 


rn 


Zwischenspeichern 


Da Sie ein umfangreiches Maschinenprogramm sicher 
nicht an einem Tag eintippen möchten, können Sie zu jedem 
Zeitpunkt mit CONTROL S zwischenspeichern. Dazu betäti- 
gen Sie einfach CONTROL S und der Code wird unter dem 
zuvor eingegebenen Programmnamen gespeichert. Weiter- 
hin wird automatisch die jeweils zuletzt gespeicherte Version 
in »BACKUPOBJ« umbenannt. Zuvor wird natürlich eine 
ältere »BACKUPOBJ«-Datei gelöscht. Danach können Sie 
den Computer ausschalten oder AMPEL mit RESET 
verlassen. 

Wenn Sie das nächstemal AMPEL starten, muß wieder die 
Programmlänge und der entsprechende Name, mit dem Sie 
Ihre letzte Version gespeichert haben, eingegeben werden. 
Existiert bereits eine Datei mit dem entsprechenden Namen, 
wird die Datei automatisch geladen. Weiterhin wird noch die 
Zeilennummer auf dem Bildschirm angezeigt, ab der Sie mit 
der Eingabe der Hex-Werte fortfahren müssen. 

Speichern Sie lieber öfter mit CONTROL S ab, um auch 
gegen eventuelle Stromausfälle gewappnet zu sein. Weiter- 
hin empfiehlt es sich aus Sicherheitsgründen, zwei Disketten 
für Daten vorzusehen. Wenn Sie das komplette Programm 
eingegeben haben, speichert der Computer nach Eingabe 
des letzten Bytes das Programm auf Diskette ab und meldet 
sich danach mit der READY-Meldung. 

Wenn Sie Ihr Maschinenprogramm anschließend laden 
möchten, erfolgt dies vom DOS-Menü aus. Wählen Sie hier 
die L-Funktion und geben Sie anschließend den entspre- 
chenden Programmnamen ein. 


Besondere Hinweise für 
Kassettenrecorder-Besitzer 


Damit AMPEL auch einwandfrei mit einem Kassettenrecor- 
der funktioniert, müssen folgende Programmzeilen geändert 
werden (beachten Sie bitte auch die Änderungshinweise 
»Achtung Änderunge): 


290 F$="C:” :AD=0 

300 ? ” Altes File laden J/N ” ; 

310 INPUT FR$ 

320 IF FR$( ) ” I” THEN 510 

420 TRAP 510:0PEN #1,4,128,F$ 

590 TRAP 660:CLOSE#1:0PEN #1,8,128,F$ 


Die Zeilen 330 bis 360 entfallen, ebenso die Zeilen 450, 
600 und 610 

Speichern Sie anschließend die geänderte AMPEL-Version 
mit CSAVE ab. Somit haben Sie das benötigte Eingabepro- 


PROGRAMM-STECKBRIEF 


Programmname AMPEL 
Programmtyp Eingabehilfe 
Programmiersprache Atari-Basic 
Programmlänge 3965 Byte 
für Computer alle 


zusätzliche Hardware Diskettenlaufwerk oder 


Kassettenrecorder 


Eingabehilfe Prüfsummer 
Bemerkung komfortable Eingabehilfe für reine 
Maschinenprogramme. Besitzer eines 
Kassettenrecorders müssen ein 
zusätzliches Programm eingeben 
Leserservice Diskette (AMPEL.BAS) 


gramm bereits vorliegen. Damit aber Binary-DOS-Files 
(Maschinenprogramme) von Kassette aus geladen und 
gestartet werden können, müssen Sie ein zusätzliches Hilfs- 
programm eingeben. Dazu muß unbedingt AMPEL verwen- 
det werden. 

Beginnen Sie also, indem Sie RUN eingeben. Als Pro- 
grammnamen geben Sie »C:« (bitte den Doppelpunkt nicht 
vergessen) und auf die Frage nach der Programmlänge 198 
ein (die Programmlänge finden Sie stets am Ende eines 
AMPEL-Listings). Geben Sie Wert für Wert ein, bis sich das 
»Kassetten-Hilfsprogramm« vollständig im Speicher befindet. 
Der Computer meldet sich nach dem letzten Byte mit einem 
Brummton, der Sie auffordert, die RECORD- und PLAY-Tasten 
des Recorders zu betätigen. Nach Drücken der RETURN- 
Taste wird das kurze Hilfsprogramm auf Kassette gespei- 
chert. Speichern Sie es von vornherein am Anfang von ver- 
schiedenen Kassetten ab, daes Grundvoraussetzungfür das 
Laden von Maschinenprogrammen von Kassette ist. Notieren 
Sie sich unbedingt den Zählerstand, um es nicht versehent- 
lich zu löschen. 


Sicherheit über alles 


Mit CONTROL Skann zu jedem Zeitpunkt gespeichert wer- 
den. Daraufhin erklingt ein doppelter Signalton. Betätigen Sie 
dann noch die RECORD- und PLAY-Tasten des Recorders 
und anschließend die RETURN-Taste. Der Speichervorgang 
beginnt. Wenn Sie dann mit einem anderen Programm arbei- 
ten möchten, gelangen Sie mit RESET zurück ins Basic. 

Wenn Sie zu einem späteren Zeitpunkt mit der Arbeit fort- 
fahren möchten, laden Sie wieder zuerst AMPEL, starten es 
mit RUN, geben die Programmlänge ein und beantworten die 
Frage »Altes File laden J/N« mit J. Daraufhin meldet sich der 
Computer wieder mit einem Brummton. Spulen Sie das Band 
an den Anfang zurück, betätigen Sie dann noch die PLAY- 
Taste und RETURN. Jetzt wird der zuletzt eingegebene Pro- 
grammteil geladen. Anschließend meldet sich der Atari- 
Computer wieder mit der Zeilennummer, ab der Sie mit der 
Eingabe fortfahren müssen. 

Um später das eingegebene Programm zu starten, muß 
stets zuerst das »Kassetten-Hilfsprogramm« geladen wer- 
den. Nach dem Ladevorgang meldet sich der Computer mit 
dem Brummton. Anschließend legen Sie bitte Ihre Kassette 
mit Ihrem Maschinenprogramm in den Recorder ein, drücken 
die PLAY-Taste des Recorders und während Sie die START- 
und OPTION-Tasten des Computers drücken, schalten Sie 
die Stromversorgung ein. Nach dem Brummton nur noch 
RETURN drücken und Ihr Programm wird geladen und 
anschließend automatisch gestartet. 


Programme schnell geladen 


Speziell bei Kassettenrecordern kann es Probleme beim 
Laden von Maschinenprogrammen geben. Deshalb sollten 
Sie stets mehrere Sicherheitskopien von Ihren Programmen 
machen. Hinzu kommt, daß das Laden von Kassette sehr viel 
Zeit beanspruchen kann, da die Übertragungsgeschwindig- 
keit sehr langsam ist. Besitzer einer Diskettenstation haben 
es hier viel besser. Also nicht vergessen: Wenn Sie als Besit- 
zer eines Kassettenrecorders Maschinensprache-Program- 
me laden wollen, müssen Sie stets zuerst das Kassetten- 
Hilfsprogramm laden. Sollten Sie mit AMPEL auf Schwierig- 
keiten stoßen, wenden Sie sich an die Redaktion. 

(Frank Ostrowski/wb) 
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So sieht der Bildschirm bei der Eingabe von Maschinenpro- 
grammen aus. Zwischenspeichern kann man jederzeit mit 
CONTROL S. 


Achtung Änderung! 


Wenn Sie AMPEL aus Happy-Computer, Ausgabe 
12/85 bereits eingetippt haben, müssen Sie eine 
kleine Korrektur vornehmen, damit die DELETE/ 
BACKSPACE-Funktion korrekt ausgeführt wird. In den 
Zeilen 1230, 1660, 1750 hat sich jeweils ein kleiner 
Fehler eingeschlichen. So sollten die Zeilen aussehen: 


1230 IF A=8135 THEN LIST 1650,1750 
1660 DATA 102, 221, 102, 222, 102, 223 
1750 DATA 8135 


Speichern Sie die neue Version auf Ihrer Masterdis- 
kette. Zur Eingabe von reinen Maschinenprogrammen 
sollten Sie die AMPEL-Version 1.1 verwenden. 


GU00: 20 92 00 07 96 97 20 BD<sa> 
@008:07 AZ 1@ AP 03 9D 42 @S<Da> 
@B10:A9 CS 9D 44 03 A9 87 9D<D3> 
@018:45 85 A7 ®4 9D 4A 83 A9c9S> 
@020:00 9D AB 03 20 56 EA 3073> 
9028:6D A? 97 AB 87 BD EB 02<22> 
@B30:8C Ei @2 20 9B 07 C9 FF<an> 
8838:D® SC CB DB 57 A9 97 AQc75> 
@840:07 8D E2 @2 EC ES 02 20<97> 
@048:9B 87 C9 FF DB B4 CO FF<75> 
@050:F@ EB 9D 44 03 98 9D A&EF> 
@058:03 20 9B 07 38 FD 44 83ca5> 
@060:9D 48 03 98 FD 45 03 90<an> 
@068:49 05 FE 48 83 DB @3 FE<DC> 
2879:49 03 2@ 56 E4 3® IF 2&<FC> 
@278:98 87 AD 53 83 C9 83 DE<F2> 
@BB2:BC A2 19 A9 GC 9D 42 03<32> 
2088:2@ 56 E4 3@ 89 20 BD 97<Fa> 
2090:18 6C E@ 92 68 48 38 4&<as> 
@098:6C EZ @2 A9 87 AZ 1B 9D<aD> 
GBAB:42 83 A9 BB 9D 48 03 9D<a0> 
GBAB: 49 23 20 56 E4 3@ DZ 48<42> 
@OBA:AF BO FD 48 BI 2@ 56 EA<6A> 
@BBB: 38 DA AB 68 6B A9 SC 80<7D> 
GOC:02 DS 6B 43 SA IB OO AXcar> 
Laenge 198 Bytes 


Listing »Kassetten-Hilfsprogramm« 
(Bitte mit AMPEL eingeben) 


PP A 
VrataaannAtari-AMPELAnne" 
+"=*4 (c) «Happy-Computer ==" 
s'akananuıVersional.1aunt" 
EePPrPPP Per Per PPPPnT 


„"ETRL4S4=4Sichern" 


- 
N 
s 

IN EN EN EN EN EN EN Er EN] 


"Einen«Moment«Geduld«bitte."; 

198 POKE 16,64:POKE 53774,64 

230 DIM F$(15) „FB$(15) ‚FR$(27) 

24® DIM ML$(261) ‚CIO$(83) 

250 GOSUB 1088 

260 ? CHR$(156) 

27® ? "Programmlaengex";z INPUT L 

280 DIM A$(L+8) 

290 ? "Programmnames";: INPUT F& 

300 IF F$="" THEN 298 

318 F=®sFOR I=1 TO LEN(FSGF=FHFSCI,D= 
“z")2NEXT I 

32® IF F=@ THEN FR$="D: ":FRS(SI=SFS:FS=FR 


330 ? "Filenames";Fs 
349 FB$="D: BACKUP.OBJ" 

358 FR$=F$ıFR$ (LEN (FRE) +1) =" 
368 FR$(LEN(FR$) +1)=FBS(3) 
420 AD=@:TRAP SIGLOPEN #1,4,8,F$ 

438 E=USR (ADR(CIO$) „1,7,ADRCAS) „L) 

448 IF E=1 THEN ? "Schonsfertig":END 
458 IF E<>136 THEN ? "Disk-Read-Error«"; 
EıEND 

460 AD=PEEK (856) +256*PEEK (857) 

470 AD=8xINT (AD/8) : TRAP 65535 

510 CD=USR(ADR(ML$) „ADR(AS) „AD) 

52@ ON CD GOSUB 590,690,71@ 

530 AD=AD+B* (CD=9) 

548 IF AD<=L THEN 518 

550 AD=L:GOSUB 598 PEEXEMIN AgT 


568 POKE 16,192: POKE 


598 TRAP &@B:CLOSE #1:XI0 33,#1, Er B,FB$ 
688 TRAP 61®:CLOSE #1:XI0 32,#1,8,0,FR$ 
61@ TRAP 66B:CLOSE #1:0PEN #1,8,0,F# 
62® E=USR (ADR(CIO$) „1,11,ADR(A$) „AD) 
638 CLOSE #1 

648 IF E<>1 THEN ? "Disk-Errora"; 

658 TRAP 65535: RETURN 

668 CLOSE #1 

678 ? "Disk-Error«"3PEEK (195) :RETURN 
698 ? CHR$(253) 1? "Pruefsummenfehler" 


33LIST Si1®:END 


19018 FOR I=1536 TO 1592 

1028 READ ArQ=Q+A:POKE I,A 

18038 NEXT I 

1848 IF 0<>4196 THEN ? "DatasError":LIST 
1308, 1390: END 

1850 Q=® 

1068 FOR I=1 TO 261 

1878 READ A 

1888 IF A>255 THEN GOSUB 1198 

1898 ML$ (I) =CHR$ (A) 1 Q=Q+A 

1108 NEXT I 

111@ READ ArIF Q<>A THEN 1200 

1120 Q=@ 

1138 FOR I=1 TO 83 

1148 READ A: Q=0+A:C10$ (I) =CHR$ (A) 
1158 NEXT I 

1168 IF @<>18894 THEN ? "DatasErrora"zjil 
IST 1950,208@: END 

117® RETURN 

1198 IF Q=A THEN READ A:Q=B: RETURN 
1208 ? "DatasError" 

1218 IF A=7931 THEN LIST 1438,153@ 
1220 IF A=4585 THEN LIST 1549,1648 
1230 IF A=8135 THEN LIST 1658,1758 


Listing zu »AMPEL« 


IF A=7184 THEN LIST 1760,1868 
IF A=2222 THEN LIST 1878,191@ 
DATAx173,37,228,72,173,36 
DATA2228,72,96,72,74,74 
DATA.74,74,32,28,6,184 
DATA«41,15,9,48,201,58 
DATA=144,2,105,6,168,173 
DATA=71,3,72,173,7@,3 
DATA-72,152,96,50,31,30 
DATAA26,24,29,27,51,53 
DATA.48,63,21,18,58,42 
DATA.56, 190,52 
DATA2169,0,133,213,104,2@1 
DATA=2,24@,16,170,240,5 
DATA.184,184,202,208,251,169 
DATA«3,44,169,1,133,212 
DATA296,184,133,215,104,133 
DATA«214,104,133,217,104,133 
DATA2216,24,101,214,133,214 
DATA-165,217,101,215,133,215 
DATA.169,155,32,28,6,165 
DATA.217,32,9,6,165,216 
DATA.79S1 
DATA.32,9,6,169,58,32 
DATAA28,6,169,0,133,218 
DATA-173,252,2,41,191,162 
DATA=17,221,39,6,248,5 
DATA«2@2,16,248,48,239,134 
DATA=219,141,252,2,32,0 
DATAs6,41,127,32,28,6 
DATA.165,219,201,16,248,168 
DATA.144,40,165,218,240,205 
DATAA74,176,5,169,126,32 
DATA-6585 
DATA.28,6,160,4,70,220 
DATA.1@2,221,1@2,222,102,223 
DATA.1@2,224,182,225,1@2,226 
DATA.182,227,102,228,136,208 
DATA235, 198,218, 184,80,178 
DATA.18,10,18,18,160, 
DATA.10,38,228,38,227,38 
DATA.226,38,225,38,224,38 
DATA2223,38,222,38,221,38 
DATA.228,136,208,234,239,218 
DATA«8135 
DATA-165,218,281,18,248,19 
DATA22B1,16,208,4,169,68 
DATA.288,5,74,176,206,169 
DATA-32,32,28,6,184,88 
DATA-198,165,217,1@,181,216 
DATA=18,181,220,18,1@1,221 
DATA-18,1@1,222,1@,101,223 
DATA.10,101,224,18,1@1,225 
DATA.18,1@1,226,18,1@1,227 
DATA.197,228,208,18,169,62 
DATA.7184 
DATA=32,28,6,168,7,185 
DATAA220,0,145,214,136,16 
DATA2248,169,0,44,169,2 
DATA.133,212,96 

DATA=2222 
DATA.184,201,4,208,66,184 
DATA-184,170,104,184,133,212 
DATA2104,133,214,104,133,213 
DATA-184,133,216,104,133,215 
DATA.169,134,138,201,8,176 
DATA-33,18,10,18,10,17@ 
DATAs165,212,157,66,3,165 
DATA2213,157,68,3,165,214 
DATA.157,69,3,165,215,157 
DATA.72,3,165,216, 157,73 
DATA«3,32,86,228,132,212 
DATA-169,8,133,213,96,168 
DATA-18,178,248,244,184,104 
DATA.202, 208,251 ‚249,237 


ESmanE 


<XK> 
<au> 
<YX> 


<zA> 
<J0> 
<OH> 
<DW> 
<c6> 
<IL> 
<KV> 
<PY> 
<HX> 
<YR> 
<RI> 
<BU> 
<YK> 
<60> 
<UF> 
<1u> 
<SR> 
<L6> 
<MmS> 
<oX> 
<3Q> 
<NS> 
<DP> 
<80> 
<UW> 
<6B> 
«IB NE 
ser © 
<RS> 

<PH> 
<YY> 
<VE> 
<DY> 
<aR> 
<BA> 
<LO> 
<wu> 
<YP> 
<RU> 
<06> 
<LZ> 
<wo> 
<MK> 
<EG> 
<37> 
<ZzP> 
<U0> 
<YP> 
<ca> 
<ER> 
<NJ> 
<NS> 
<LL> 
<KJ> 
<NU> 
<cA> 
<HM> 
<KE> 
<AX> 
<DH> 
<HO> 
<AX> 
<LS> 
<VR> 
<To> 
<AD> 
<SE> 
<HM> 
<au> 
<SB> 
<3Q> 


Prüfsummer paßt auf 


Unser Prüfsummer für alle Atari-Computer ist 
besonders komfortabel. Mit Hilfe dieses Pro- 
gramms lassen sich Listings auf Anhieb korrekt 
eingeben. 


umfangreich erscheinen, der Aufwand lohnt sich. So 

legt der Prüfsummer zum Beispiel eine zusätzliche 
Statuszeile am oberen Bildschirmrand an. Diese Zeile ist von 
Basic ausnichtzuerreichen, also auchnnichtzulöschen. Wei- 
terhin können Sie den Prüfsummer auch für die Eingabe von 
Turbo-Basic XL-Programmen verwenden. Beachten Sie 
hierzu die besonderen Hinweise! 

In dem abgedruckten Listing finden Sie gewisse Zeichen 
vor, die der Atari nicht kennt. Es handelt sich dabei einerseits 
um Dreiecke und andererseits um geschweifte Klammern. 
Die Dreiecke stellen grundsätzlich Leerstellen dar; Texte, die 
zwischen geschweiften Klammern stehen, respräsentieren 
Atari-spezifische Grafik- und Sonderzeichen. Ein Beispiel: 
»ESC CTL=« entspricht dem ASCIl-Zeichen 29. Um dieses 
Zeichen einzugeben, betätigen Sie zunächst die ESC-Taste 
und dann gleichzeitig die CONTROL- und die »=«-Taste. Dar- 
aufhin erscheint das gewünschte Zeichen auf dem Bild- 
schirm. Eine komplette Aufstellung aller Grafik- und Sonder- 
zeichen finden Sie in der Tabelle. 

Weiterhin gibt es unterstrichene Zeichen, die eine inverse 
Darstellung bedeuten. Bevor Sie ein solches Zeichen einge- 
ben, müssen Sie unbedingt die Atari-Taste betätigen. Bild 1 
zeigt eine Programmzeile in der üblichen Darstellungsweise 
und zum Vergleich dazu eine in konvertierter Form. 

Geben Sie also zunächst das Prüfsummenprogramm von 
Basic - oder Turbo-Basic XL - aus ein. Zwar werden sämt- 
liche DATA-Werte nach dem Start mit RUN überprüft, aber 
»nobody is perfeot«. 

Kontrollieren Sie also das Prüfsummenprogramm vor dem 
Startnoch einmal. Speichern Sie es dann auf einem Datenträ- 
ger. Jetzt können Sie das Programm beruhigt mit RUN star- 
ten. Aus den DATA-Werten wird nun ein Maschinen- 
Programm erzeugt. Sollte sich beim Eintippen des Pro- 
gramms ein falscher DATA-Wert eingeschlichen haben, so 
wird die entsprechende Zeilennummer auf dem Bildschirm 
angezeigt. 

Nach der Korrektur starten Sie das Programm erneut mit 
RUN. Wurde das Programm fehlerlos eingegeben, stehen 
folgende Funktionen zur Auswahl: 

1. Das Prüfsummen-Programm als Maschinensprach-File 
auf Diskette schreiben. Nach Betätigung der Taste 1 fragt das 
Programm nach dem Namen für das Prüfsummenprogramm. 
Tippen Sie also beispielsweise »PRUEFER.OBJ« ein, so wird 
nach Druck auf die RETURN-Taste das Prüfsummenpro- 
gramm auf Diskette gespeichert. Der Computer schließt den 
Vorgang mit der READY-Meldung ab. 

Um das Prüfcode-Programm verwenden zu können, 
löschen Sie den Programmspeicher zunächst mit NEW. Vom 
DOS-Menü aus (einfach DOS eintippen und die RETURN- 
Taste betätigen) wählen Sie die Option L und geben den 
Namen des vorher erzeugten Maschinenprogramms ein. 
Jetzt wird das Prüfsummenprogramm in den RAM-Speicher 
geladen. Mit B gelangen Sie wieder zurück ins Basic. 

Aktiviert wird jetzt das Prüfsummenprogramm mit 
»?USR(1536)«. Am oberen Bildschirmrand erhalten Sie 
daraufhin eine zusätzliche Zeile mit dem Schriftzug 
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M: der Atari-Prüfsummer auf den ersten Blick etwas 
| 


4850 POSITION 11,237 "tCTL ZIECTL RICCTL 
RILCTL RICCTL RICCTL RICCTL RICCTL RICO 
TL RILCTL RILCTL RIECTL RICCTL RICCTL RI 
XCTL RICSHIFT =)"HPOSITION 4,5:7 "FILENA 
MEASASIZE" POSITION 2,7 


Bild 1. Oben eine Programmzeile, wie sie auf dem Bildschirm 
erscheint. Darunter dieselbe Zeile in der konvertierten Form. 


© er Bun. Kress 


EEK C764) 28 THEN Pop 


’s 
next Sparte 


Bild 2. So sollte der Bildschirm nach dem Aktivieren des 
Prüfsummers aussehen. 


»Prüfcode: > < (c) by W. Kress/wb«. Wie die Aufteilung des 
Bildschirms unter Verwendung des Prüfsummenprogramms 
aussieht, zeigt Bild 2. 

2. Das Maschinenprogramm wird als Boot-File auf 
Kassette geschrieben. Das spätere Laden oder Booten geht 
folgendermaßen vor sich: 

- bei ausgeschaltetem Computer die START-Taste drücken 
und Computer einschalten, 

- nach Ertönen des Summtons die START-Taste loslassen 
- nacheinander die PLAY-Taste des Kassettenrecorders 
und die RETURN-Taste betätigen. 

- das Prüfsummenprogramm wird geladen und automatisch 
gestartet 

3. Programm beenden. Das Maschinenprogramm wird 
nicht gespeichert. 


PROGRAMM-STECKBRIEF 
Programmname Prüfsummer 
Programmtyp Eingabehife 


Programmiersprache ‚Atari-Basic und Maschinensprache 


Programmlänge 4075 Byte 

für Computer alle 

zusätzliche Hardware Diskettenstation oder 
Kassettenrecorder 

Eingabehilfe keine 

Bemerkung Eingabehilfe für Atari-Basic und 
Turbo-Basic-XL-Listings. 

Leserservice Diskette (PRUEFSUM.BAS) 


ik 


Das Prüfsummenprogramm wird in der Page 6 abgelegt, 
einem vor NEW geschützten Speicherbereich. Abschalten 
kann man es durch Drücken von SYSTEM RESET, ein 
Neustart erfolgt mit dem Aufruf: »?USR(1536)«. 

Sobald das Prüfsummenprogramm aktiviert ist, können 
beim Zugriff auf ein Speichermedium Bildstörungen 
auftreten. Um dies zu vermeiden, brauchen Sie nach dem 
Laden oder nach dem Aufruf mit »?USR(1536)« nur »POKE 
39998,30« einzugeben. 

Wurde das Programm von Kassette gebootet, wird es 
jedesmal nach Betätigung der SYSTEM RESET-Taste erneut 
gestartet. Gibt man jedoch vor der Betätigung der SYSTEM 
RESET-Taste »POKE 9,0« ein, kann man diesen Effekt 
umgehen. 

Bevor Sie nun ein eingetipptes Basic- oder Turbo-Basic 
XL-Programm mit RUN starten, sollten Sie es sicherheits- 
halber noch einmal speichern. Weiterhin sollte das Prüfsum- 
men-Programm mit SYSTEM RESET desaktiviertwerden, da 
auch manche Basic-Programme die Page 6 für Maschinen- 
unterprogramme verwenden. Es könnte sonst zu Über- 
schneidungen und zum Systemabsturz kommen. 

Der Prüfcode besteht jeweils aus zwei Zeichen. Er setzt 
sich aus den Buchstaben von A bis einschließlich Z 
zusammen. Geben Sie nun probeweise eine Programmzeile 
ein und schließen Sie mit der RETURN-Taste ab. Der 
zugehörige Prüfcode erscheint dann in der obersten Zeile. 
Sollte der Code nicht mit dem im abgedruckten Listing 


übereinstimmen, kann die Programmzeile sofort verbessert 
werden. Die jeweilige Programmzeile braucht dazu nicht 
erneut eingegeben werden, da sämtliche Editierfunktionen 
des Atari-Computers zur Verfügung stehen. 

Ein wichtiger Hinweis: 

Für die erste Programmzeile kann eventuell ein falscher 
Prüfcode errechnet werden. Sollte die Prüfsumme also 
nicht mit der im Listing abgedruckten übereinstimmen, 
fahren Sie mit dem Cursor nochmals auf die erste Zeile. 
Sobald Sie die RETURN-Taste betätigt haben, erscheint 
der richtige Code auf dem Bildschirm. Stimmt der 
ausgegebene Wert dann immer noch nicht, überprüfen 
Sie nochmals jedes einzelne Zeichen der von Ihnen 
eingegebenen Programmzeile. 

Bei der Eingabe von Programmen sind die üblichen 
Abkürzungen für Basic-Befehle zulässig. Sie können also 
zum Beispiel G. für GOTO, SE. für SETCOLOR und so weiter 
verwenden. Eine Ausnahme gilt jedoch bei der Abkürzung 
für den PRINT-Befehl, den man in der Regel mit einem 
Fragezeichen abkürzen kann. Verwenden Sie das 
Fragezeichen bitte nur dann, wenn es auch im Listing 
verwendet wird. 

Möchten Sie nachträglich ein Programm überprüfen, so 
laden Sie zuerst das Prüfsummenprogramm und starten es 
mit »?USR(1536)«. Anschließend laden Sie Ihr Programm 
und listen einen Teil auf dem Bildschirm. Dann bewegen Sie 
den Cursor an irgendeine Stelle einer Programmzeile. Mit 
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Betätigung der RETURN-Taste wird der Prüfcode in der 
Statuszeile dargestellt. Stimmt der Prüfcode mit dem im 
beigefügten Listing überein, betätigen Sie wieder die 
RETURN-Taste, und der Prüfcode der nächsten Zeile wird 
errechnet und angezeigt. Auf diese Art und Weise können 
Sie ein komplettes Programm oder auch nur einzelne Zeilen 
»durchchecken«. 

Sollte der Code nicht mit dem des Listings 
übereinstimmen, überprüfen Sie Ihre Programmzeile. Denn 
beiallen abgetippten Listings gilt: Die Programme müssen so 
abgetippt werden, wie sie abgedruckt sind. Stimmt die 
Anzahl der Leerzeichen? Haben Sie eventuell Zeichen 
vertauscht? Oder haben Sie ein »?« anstelle eines PRINT- 
Befehls eingegeben? Haben Sie den Fehler gefunden? Dann 
weiterhin viel Erfolg mit Ihren Atari-Programmen. 


Besondere Hinweise zum 
Prüfsummenprogramm 


Wenn Ihnen die Redaktion unseren Atari-Prüfsummer 
bereits zugeschickt hat, müssen Sie eine geringfügige 
Änderung am Basic-Programm vornehmen. In der alten 
Version funktioniert der Prüfsummer zwar bei der Eingabe 
von normalen Basic-Programmen, nicht aber bei Turbo-Basic 
XL-Programmen. Sie müssen aber lediglich am Ende von 
Zeile 630 ein Semikolon »;« anfügen. Sie sollte dann wie folgt 
aussehen: 


630 IF D THEN ? #1;D$(1,500); 


Starten Sie das Prüfsummenprogramm anschließend mit 
RUN und speichern Sie es wieder auf Ihrem Massenspei- 
cher. Auf der Leserservice-Diskette befindet sich natürlich 
die neue, hier abgedruckte Prüfsummer-Version. 

Wenn Sie ein Turbo-BasicXL-Programm eingeben 
möchten, müssen Sie das Prüfsummenprogramm mit einem 
Hilfsprogramm starten. Weiterhin empfiehlt es sich, eine 


verwenden. Formatieren Sie also eine Diskette. Verwenden 
Sie aber bitte nur DOS 2.0 oder 2.5! Speichern Sie 
anschließend die DOS-Files und Turbo-Basic XL mit dem 
Namen »AUTORUN.SYS« auf dieser Diskette. Anschließend 
schalten Sie den Computer aus und booten die soeben 
angelegte Diskette. Geben Sie anschließend folgende 
Programmzeile ein: 


1 BLOAD ”D:PRUEFER.OBJ” :POKE $BC3E,$1E:*L-:NEW 


Speichern Sie diese Programmzeile dann mit »SAVE” 
D:AUTORUN.BAS ” « auf Ihrer Eingabediskette. Dieses kurze 
Programm sorgt beim Booten des Computers dafür, daß das 
Prüfsummenprogramm automatisch geladen und ausgeführt 
wird. Achtung: Das Prüfsummenprogramm läßt sich nicht 
vom DOS-Menü aus starten! Die oben aufgeführte Pro- 
grammzeile muß unbedingt beim Bootvorgang ausge- 
führt werden. Auf Ihrer Prüfsummer-Diskette sollten sich 
also folgende Files befinden: 


1. DOS.SYS (entweder DOS 2.0 oder 2.5) 

2. DUP.SYS (passend zum DOS.SYS-File) 

3. AUTORUN.SYS (Turbo-Basic XL) 

4. AUTORUN.BAS (das Initialisierungsprogramm) 

5. PRUEFER.OBJ (das eigentliche Prüfsummenprogramm 
als Maschinencode-File) 


Basic-Programme schnell und 
zuverlässig eingegeben 


Um also, unter Turbo-Basic XL, den Prüfsummer verwen- 
den zu können, brauchen Sie nur Ihre Prüfsummer-Diskette 
ins Laufwerk einschieben und Ihren Computer einschalten. 
Alles weitere erledigt der Computer von selbst. 

Vergessen Sie bitte nicht, sich von der neuen Prüfsummer- 
Version auch eine Sicherheitskopie anzulegen. Mit der alten 
Version sollten Sie unter keinen Umständen mehr arbeiten. 
Sind noch Fragen offen, wenden Sie sich bitte an die 


separate Diskette, sozusagen als Eingabediskette zu Redaktion. (wb) 

100 REM ARHSRHRHRRHRHRRRRR <LU> 36® PSUMM=PSUMM+DEZ <MmV> 
11@ REM * * <HA> 37@ NEXT J <GR> 
128 REM * PRUEFCODE fuer ATARI * <cu> 388 READ ZSUMM <AW> 
138 REM * * <HE> 39@ IF PSUMM=ZSUMM THEN 410 <IN> 
148 REM # von * <zz> 488 ? "{ESC CTL ZIDATENFEHLER“!":LIST Zi 

158 REM * weg 17 * <XA> END <YX> 
168 REM * 759@ Achern * <10> 418 GSUMM=6SUMM+PSUMM: Z=Z+1@ <NJ> 
178 REM * (c) by Happy-Computer * <DC> 420 NEXT I <FY> 
180 REM * * <HO> 430 READ ESUMM <SL> 
190 REM rat akata <MM> 440 IF ESUMM=GSUMM THEN 4648 <z0> 
2800 REM <AI> 458 ? "{ESC CTL 2>3FEHLENDE-ODER“DOPPELTE 

218 DIM F$(15) ,SED$(2) ‚D$ (584) „C$(11) <RC> „DATA-ZEILE":END <1Zz> 
220 C$="{CTL „ILCTL DIUuFtCTL ArCCTL Fr)< 468 ? "{ESC CTL 23" <EX> 
{CTL_MITCTL BIS" <1z> 478 ? "<ESC CTL <}" <RP> 
‚230 GRAPHICS @:POKE 82,8:POKE 752,1 <KV> 488 POSITION 2,6:? :POKE 752,1 <uQ> 
248 POSITION 12,1@:POKE 281,8 <BO> 498 ? „"{CTL YIILETL VIaAuFfsDISKETTEScCh 

258 ? "Bitteswarten.!":POKE 752,8 <DX> reiben{ESC CTL =}{ESC CTL =)" <AaY> 
260 7=1008 <67> 50@ ? „"{CTL YIZICTL YIaAufCASSETTEsSch 

278 FOR I=1 TO 497 STEP 8 <oL> reiben{ESC CTL =}{ESC CTL =)" <AaQ> 
280 PSUMM=@ <MG> 510 ? ‚"tCTL VISTCTL YISENDE" <VR> 
298 FOR J=@ T0 7 <PK> 528 DPEN #1,4,0,"K":GET #1,K:CLOSE #1 <NQ> 
30@ READ SED$ <zv> 53@ K=K-48: IF K<1 DR K>3 THEN ? "{ESC CT 

31@® H=ASC (SED$(1))-48 <EQ> L 2)3"5:G0T0 528 <WU> 
32@ IF H>? THEN H=H-7 <LT> 548 POSITION 3,4+3#K:? ">"; <FU> 
33@ L=ASC (SED$(2))-48 <GE> 558 POSITION 2,28:? "{ESC SHIFT DEL}Y"; <EW> 
348 IF L>9 THEN L=L-7 <SR> 568 ON K G0T0 578,598,688 <DI> 
35@ DEZ=H#16+L:D$(I+J)=CHR$ (DEZ) <av> 578 POKE 752,8:7 "{ESC TAB}DATEINAMEst“n 
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Diz{ESC CTL +2XESC CTL +9 (ESC CTL +)XESC 
ETL +3"3 
588 POKE 764,44: INPUT F$:D=1:60T0 61@ 
598 F$="C:":D=0 
608 ? ‚"CASSETTE-FERTIG.MACHEN, “RETURN”; 
618 TRAP 668 
62® OPEN #1,8,128,F% 
638 IF D THEN ? #1;D$(1,50@ 3; 
64@ IF NOT D THEN ? #15C55D£(7,494) 
658 CLOSE #1:60T0 478 
668 7 "LESC CTL 2IXESC CTL -ITESC SHIFT 
DEL)Y<ESC TAB) 1/0.- FEHLER." ;PEEK (195) ; 
670 TRAP 400@0:CLOSE #1:G60T0 488 
68@ POKE 752,8: END 
698 REM 
18088 DATA«FF ,FF,80,38,E7,39,A2,FF,1271 
1018 DATA.BD,EB,38,90,00,06,CA,E8,1069 
1820 DATA-FF ,D®,F5,A2,60,BD,8R,38,1349 
1838 DATA.9D,00,81,CA,10,F7,A2,0F ‚808 
1048 DATA.ED,@0,E4,9D,61,21,CA,10,898 
1858 DATA-F7,18,AD,65,01,69,01,8D,793 
1268 DATA-6B,96,AD,66,01,69 ,08,8D,635 
1870 DATA6C,06,A9,24,80,65,01,N9,737 
1089 DATA.06 ,BD,66,01,AD,67,01,8D,668 
1090 DATA-38,06,AD,68,01,80,34,06,531 
1188 DATALSB,AD,30,02,E9,02,80,02,657 
111@ DATA.06,8D,11,06,AD,31,02,£9,627 
1120 DATA.0@,8D,97,06,8D,12,86,19,488 
115@ DATA245,20,7N,38,90,11,BE,26,620 
1148 DATA.06,49,00,20,74,38,90,07,536 
1158 DATALBE, 17,06,20,01,06,18,60,330 
1160 DATA.A2,00,DD,1A,05,F0,28,E8,892 
A170 DATA.EB,EB,EQ,21,D0,F4,18,60,1293 
118@ DATAL70,42,39,01,9E,06,9E,06,564 
1198 DATA.IE,86,75,06, 9,06, 96 706,615 
1220 DATA.08,00,00,00,4C,2E,22,54,240 
121@ DATA.SA,22,2C,50,45,45,4B,28,469 
1220 DATALS1,31,33,29,2B,32,35,36,390 
12390 DATAA2A,50,45,45,4B,28,31,31,473 
1240 DATAx34,29,9B,01,61,45,01,04,420 
1250 DATA.S4,30,72,75,65,66,63,6F ,776 
1269 DATAA64,65,00,1A,00,00,1E,00,257 
1270 DATA.00,1C,00,00,08,63,09,00,144 
12898 DATA.18,15,09,62,79,00,37,0E,333 
1290 DATA.00,2B,72,63,73,73,@F,77,622 
1300 DATA.62,68,49,FF ,8D,30,82,49,986 
131@ DATASFF ,8D,31,02,A0,05,B9,00,795 
1320 DATA@L 99 ,FF,FF,88,10,F7,AQ,1223 
153@ DATA«FF ,A2,05,BD,33,01,99,14,842 
1348 DATA.03,C8,E0,03,09,02,AQ,FF,1055 
135@ DATA.CA,10,F@,60,45,77,F0,@4,10688 
1360 DATA-A9,FF,85,26,A9,FF,85,27,1191 
137@ DATA-C6,77,A5,73,F0,2D,AS,A1,1208 
1388 DATA.10,94,06,75,F0,25,A6,78,896 
1390 DATA-BD,14,01,E6,78,07,9B,DB,1124 
1498 DATA-AF ‚N2,00,86,78,86,73,A6, 718 
141@ DATA-AB,86,71,A6,A1,86,72,A2,1144 
1420 DATA.9E ,86,26,A2,06,86,27,E6,7@1 
1438 DATA.77,D0,35,20,3£,F6,08,09,929 
1440 DATA.9B,D0,92,66,73,28,60,R2,1208 
1450 DATA.00,C9,98,F0,26,86,CC,A6,1138 
1462 DATA.00,86,D1,85,CD,A8,08,46,917 
147@ DATA.D1 ,90,0C,18,A2,83,B5,CD,748 
1489 DATA.75,CA,95,CD,CA,D2,F7,86,1336 
1498 DATA.CD,26,CC,88,D9,E9,E6,00,1254 
150@ DATA-AB,D1,608,A9,n4,A0,02,20,784 
1518 DATA-CC,86,A2,03,B5,CA,95,CD,1112 
1520 DATA-CA,DB,F9,A9,14,20,CC,96,1896 
1539 DATA.AS,CD,18,69,21,8D,48,01,746 
1549 DATA.AS,D®,69,21,8D,47,01,84,856 
155@ DATA.DB,C8,84,00,60,85,72,84, 1015 


1568 DATA.71,86,CB,86,CC,86,CD,AQ,1287 
157@ DATA.18,18,42,05,36,CB,CA, 10,698 
1589 DATA-FB,38,42,03,B5,CA,FS,6F,1211 
1590 DATA=95,73,CA,D@,F7,78,@B,BS, 1257 
1609 DATA.74,95,CB,E8,E8,03,D8,F7,1382 
161@ DATA-E6,D9,88,D8,DC,69,E2,02,1326 
162@ DATA.ES,02,00,38,20,20,00,00,285 


16358 DATA.53423 
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Farbe auf die 
Fläche 


Das normale Atari-Basic kennt leider keinen 
Befehl, eine Fläche einzufärben. Das XI0-Kom- 
mando ist nur ein schlechter Ersatz. Das Pro- 
gramm »Fill« bringt Farbe auf die Fläche und 
schraffiert sie sogar. 


Das Maschinensprache-Programm »Fill« besteht aus zwei 
Teilen: 

1) Dem Hauptprogramm (333 Byte lang), das in einen String 
geladen werden muß (beim Demoprogramm MAS$). 

2) Den Unterpgrogrammen (86 Byte lang), die in Page 6 von 
der Adresse 1536 bis 1621 stehen. 

Bevor »Fill« gestartet werden kann, müssen die Zahlen aus 
den DATA-Zeilen geladen werden. Nach dem Einschalten von 
»Grafik 8« wird die Figur gezeichnet, die ausgefüllt werden 
soll. Um die Fläche festzulegen, wird mit »COLOR O« und 
»PLOT X,Y« ein Punkt auf die Stelle gesetzt, von der aus das 
Fill-Programm starten soll. COLOR O ist deshalb wichtig, 
damit der Punkt unsichtbar bleibt und beim Ausfüllen nicht als 
Hindernis erkannt wird. 

Danach wird das »Fill«-Programm mit»Q=USR(ADR(MAS$), 
MUSTER)« gestartet. »ADR(MA$)« gibt die Anfangsadresse 
von MA$ im RAM-Speicher und damit auch die Startadresse 
des Maschinensprache-Programms an. »MUSTER« kann 
eine Variable oder einen Wert zwischen O und 255 sein. Hier- 
mit wird das Bit-Muster angegeben, mit dem ausgefüllt wer- 
den soll. Der Dezimalwert 255 ergibt als Binärzahl 11111111, 
die sich wie folgt errechn 
1x20+1x21+1x22...+1x27=255. 

Hier wird jeder Punkt gezeichnet. Bei Dezimalwert 170 
(entspricht binär 10101010) wird nur jeder zweite Punkt auf 
dem Bildschirm sichtbar. Das Bitmuster wird in jeder Bild- 
schirmzeile um einen Punkt verschoben, so daß sich daraus 
schräg schraffierte Flächen (von links oben nach rechts 
unten) ergeben. Allerdings muß die Variable »MUSTER« dann 
ungleich O sein. 

Um die Funktion des Programmes zu verstehen, ist es 
wichtig, etwas über den Bildschirmspeicher in Grafikstufe 8 
zu wissen. Die Anfangsadresse des Bildschirmspeichers 
steht in den Adressen 88 und 89. Sie wird von Basic aus mit 
»PRINT PEEK(88)+PEEK(89)* 256« errechnet. 

In Grafikstufe 8 ist der Bildschirmspeicher aus 192 Zeilen 
mit je 40 Byte aufgebaut. Jede Zeile ist auf dem Bildschirm 
einen Punkt hoch. Ein gesetztes Bit aus einem Byte bedeu- 


PROGRAMM-STECKBRIEF 
Programmname Fill-Routine 
Programmtyp Grafik-Utility 
Programmiersprache Basic und Maschinensprache 
Programmlänge 3365 Byte 
für Computer 6O0XL/B00XL/130XE 
zusätzliche Hardware keine 
Eingabehilfe Prüfsummer 
Bemerkung zum Füllen von Flächen in den 

Grafikstufen 4, 6 und 8 

Leserservice Diskette (FILLBAS) 
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tet, der Punkt ist sichtbar. Pro Byte können also acht Punkte 
gespeichert werden. Bei 40 Byte pro Zeile mit je acht Punk- 
ten kommt man wieder auf 40 x 8 = 320 Punkte Auflösung. 
Schreibt man in die erste Adresse den Wert 128, erscheint 
links oben ein Punkt. Addiert man zu der Adresse 40, wird der 
Punkt eine Zeile tiefer gezeichnet. 

Das Programm »Fill« errechnet zuerst aus der Grafikcursor- 
position, die durch »PLOT« gesetzt wird (Adresse 90 für verti- 
kale und 91/92 für horizontale Position), die Speicheradresse 
im Bildschirmspeicher. Dieser Wert wird in XA, YA und XS, YS 
gespeichert (in Maschinensprache gibt es keine Variablen; 
hier müssen freie Speicherzellen verwendet werden). XAund 
YA sind die Koordinaten des Arbeitspunktes, der durch das 
Programm verschoben wird. XS und YS werden, nachdem die 
erste Hälfte der Fläche ausgefüllt ist, dazu verwendet, den 
‚Arbeitspunkt wieder auf die Ausgangsposition zu setzen. 


— 
(1 


Bild 1. Verschiebung des Arbeitspunktes beim Ausmalen 
einer Fläche. Bei diesem Beispiel erfolgt das Füllen der 
Fläche rechtsbündig. Um auch den linken Teil füllen zu 
können, muß der Arbeitspunkt in die noch leere Fläche 
gesetzt werden und das Programm»Fill« nochmals gestartet 
werden. 


Vom Arbeitspunkt aus zeichnet das Programm so lange 
eine Linie nach rechts, bis es auf ein Hindernis stößt. In 
Maschinensprache heißt das, daß von der Position XA, YA 
aus jedes Bit im Bildschirmspeicher abgefragt werden muß. 
Wird bei der Abfrage ein bereits gesetztes Bit gefunden, stellt 
dieses den Rand der zu füllenden Fläche dar. Der Füllvorgang 
wird dann in umgekehrter Richtung fortgesetzt. Das gleiche 
gilt, wenn der Bildschirmrand erreicht ist. Findet das Pro- 
gramm auch hier ein Hindernis, wird YA um 1 erhöht (der 
‚Arbeitspunkt wird um eine Zeile nach unten verschoben). Ist 
ein Hindernis direktauf dem ArbeitspunktXA, YA, kann weder 
eine Linie nach rechts noch nach links gezeichnet werden. 
Der Arbeitspunkt muß dann so weit nach rechts verschoben 
werden, bis eine freie Stelle auf dem Bildschirm gefunden ist. 
‚Auch hierfür werden wieder die einzelnen Bits im Bildschirm- 
speicher getestet. Liegt der neue Arbeitspunkt noch inner- 
halb der auszumalenden Fläche, setzt sich das Ausfüllen der 
Fläche fort. 

Liegt der neue Arbeitspunkt aber schon außerhalb der aus- 
zumalenden Fläche, wird er so lange nach links verschoben, 
bis eine freie Stelle gefunden wird. Bild 1 verdeutlicht diesen 


xS 

xS Startposition 

Bit 

YA 

xA Arbeitspunkt 

BitA 

Rand R 

Rand RB rechter Rand der Fläche 

RandL 

Rand LB linker Rand der Fläche 

Lücke 

Sicher kurzzeitiger Speicher für 

j Zwischenergebnisse 

Modus 

Bild ‚Adressiert die Stelle im 
Bildschirmspeicher, an der gerade 
‚gearbeitet wird 

Muster = 110 $6E wird über den USR-Befehl gesetzt 


Bild 2. Verwendete Adressen 


Vorgang. Ist auch sie schon außerhalb der auszufüllenden 
Fläche, ist deren unteres Ende erreicht. Der Arbeitspunkt 
wird jetzt wieder auf den Ausgangspunkt gesetzt (XA=XS; 
YA=YS). Dann wird die Fläche wieder ausgemalt, nur das XA 
nach jeder fertigen Zeile nicht um 1 erhöht, sondern ernie- 
drigt (eine Bildschirmzeile nach oben). Kann auch hier der Ar- 
beitspunkt nicht mehr innerhalb der auszumalenden Fläche 
verschoben werden, oder ist der obere Bildschirmrand 
erreicht, wird ins Basic zurückgekehrt. 

Mit der »Fill«-Routine können fast alle Flächen ausgefüllt 
werden. Teilt sie sich aber in vertikaler Richtung (zum Beispiel 
bei einer U-Form wie in Bild 1), wird nur einer der Arme ausge- 
füllt, Hiermuß der Ausgangspunkt mit »COLOR O« und »PLOT 
X,Y« in den noch nicht ausgemalten Bereich gesetzt werden 
und das Programm »Fill« muß noch einmal gestartet werden. 

Eine Fläche mit mehreren Verzweigungen in horizontaler 
Richtung wird jedoch schon beim ersten Mal korrekt ausge- 
füllt. Das Programm arbeitet normalerweise nur in Grafikstufe 
8. Es kann aber auch für Stufe 6 oder 4 umgeändert werden, 
da sie fast den selben Bildschirmspeicheraufbau besitzen. 
Dafür müssen folgende POKE-Befehle an einer Stelle nach 
dem Einlesen von »Fill« aus den DATA-Zeilen in das Basic- 
Programm gesetzt werden: A=ADR(MA$) 


Grafikstufe 4 6 8 
POKE A+71, 48 96 192 
POKE A+153 9 19 39 
POKE A+260, 9 19 39 
POKE 1552, 10 20 40 


Positionen werden bei »Fill« in einer 1-Byte-Adresse für die 
vertikale (y-Achse) und in einer 2-Byte-Adresse für die hori- 
zontale Richtung gespeichert. So bekommt man mit »PRINT 
PEEK(84)« die momentane Zeile und mit »PRINT 
PEEK(85)-+(PEEK(86)*256« die momentane Spalte des 
Grafikcursors. Mit »PRINT PEEK(90)« erhält man die vorher- 
gehende Zeile und mit »PRINT PEEK(91)+PEEK 
(92)* 256« die vorhergehende Spalte, in der sich der Grafik- 
cursor befunden hat. Diese Adressen, die als dezimaler Byte- 
Wert gePEEKt werden, werden auch von den Basic-Befehlen 
DRAWTO und XIO 18 (Füllen von Flächen) verwendet. In Bild. 
2 sindnoch alle von »Fill« verwendeten Adressen aufgeführt. 
Bild 3 und Bild 4 verdeutlichen noch den Aufbau des Grafik- 
bildschirms in Stufe 8. Die einzelnen Bildschirmdaten werden 
Zeile für Zeile im RAM-Speicher abgelegt. Um die Start- 
adresse des Bildschirmspeichers zu bestimmen, müssen die 
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En 


Obere linke Ecke des Bildschirms ] 


‚Adressen 88 und 89 abgefragt werden. Geben Sie hierzu 


bitte folgende Zeile ein; »PRINT PEEK(88)+PEEK(89) 
SSCc000256000029000509 *256«. 
Scoooscbsososzadoose Das Programm benützt zwei Koordinatenpaare zum Spei- 
= — = chern von Positionen auf dem Bildschirm: 
TSOesssussssssseoon XA, YA = Arbeitspunkt: Dieser Punkt wird vom Programm 
S08C0CI020 00559980509 geändert. Von hier aus werden im Programm Linien nach 
ER 3 = =. rechts und nach links gezeichnet. 
SESMTSTSSTSOSTSTMMHDQ)| gs yS= Startposition: Dieser Punkt wird nicht geändert 
SOSBOSc755oszoooelsz und zum Setzen von XA und YA verwendet. Die Startposition 
98000065590 -00ca0o errechnet sich aus der Position des Grafikcursors. 
EEE TIITITIIIIITTIES RD) 
SCc90005050 005022010505 
2000 BSoopasolı «Bild 3. Ausschnitt des Bildschirms in Grafikstufe 8. Die 
ausgefüllten Punkte sind sichtbar, alle anderen Punkte — 
auch Pixel genannt — sind unsichtbar. 

Byte 0 Byte 1 Byte 2 Byte 3 Byte 4 Byte 5 Byte6 Byte7 
E2099055H000000050000000B0000000B 5900005303095 T59050000008 
Oberste Bildschirmzeile (Zeile 0) und so weiter 

Byte 40 Byte 41 Byte 42 Byte 43 Byte 44 Byte 45 Byte46  Byte47 


99000505 20000905000005060000000059C0005503055T5000090000 


und so weiter | 


Bild 4. Jede Bildschirmzeile in Grafikstufe 8 setzt sich aus 40 Bytes mit jeweils 8 Bits zusammen. Daraus ergibt sich die 
horizontale Auflösung von 320 Punkten. Der Bildschirm setzt sich aus 192 solcher Zeilen zusammen. 


1@ REM Demoprogramm zu "FILL" <RT> 
29 REM mmnmsnnee <IB> 
3@ REM ROLF KILIAN <HX> 
40 REM Oeschwende 11 <FO> 
5® REM 7908 Ulm-Lehr <CL> 
6&@ REM Tel. 8731/60591 <WZ> 
70 REM ern <I6> 
8® REM Oktober 1984 <ON> 
99 REM <IW> 
100 DIM MA$(SSZI:REM Das Hauptprogramm w 
ird in MA$ gespeichert <HR> 
118 DEG <WC> 
128 A=ADR(MAS):IF PEEK(A)=124 AND PEEK(A 
+332)=166 THEN 60TO 208 <ac> 
125 7 CHR£(125) ; "BITTE-WARTEN" <ST> 
139 REM *** Zeile 140 kann nach dem 1.fe 
hlerfreien Lauf geloescht werden <x5> 
148 RESTORE 30@Q@:FOR- I=@ TO 418:READ P: 
C=C+PzNEXT I:IF C<>50795 THEN ? "FEHLER. 
IN-DATAZEILEN" END <FC> 
15@ RESTORE 32000 <BD> 
160 FOR I=@ TO 332:READ P:POKE ADR(MASI+ 
I,P:NEXT IrREM *** Hauptprogramm einlese 
n <uA> 
178 RESTORE 30846 <HR> 
180 FOR I=® TO 8S:READ P:POKE 1536+1,P:N 
EXT IzREM &** Unterprogramme einlesen <Ly> 
199 REM «xx Pyramiede aus Kreisen zeichn 
en <BJ> 
208 A-®:GRAPHICS 8+16 <LL> 
218 R=28:5=38 <RP> 
22@ FOR YP=30 TO 15@ STEP 38 <XG> 
238 FOR XP=175-YP/2 TO 145+YP/2 STEP 38 <aM> 
249 COLOR 1:60SUB S@@:REM »** Kreis zeic 
hnen <ER> 
250 COLOR @:PLOT XP,YP:REM #** Ausgangsp 
osition fuer Fill <61> 
260 Q=USR(ADR(MA$) „RND(@ #256) REM x## F 
ill mit zufaelligem Muster starten <RH> 
27@ NEXT XP <Tw> 
28@ NEXT YP <uI> 
29@ R=80: YP=95: XP=168:S-15 <va> 
<SE> 
1: Q=USR (ADRCHAS) , 
<vA> 


Basic-Listing zu »Fill« 


32® PLOT. 228,188: Q=USR (ADR (MA$) „255) :REM 
**# Starten von Fill; Muster=255 -> Fla 
eche ganz ausfuellen <TS> 


33@ PLOT 175,165: Q-USR (ADR (MAS) „255) <PU> 
34@ PLOT 145,165:Q-USR (ADR (MA$) „255) <op> 
35® R=95 <Aan> 
368 COLOR 1:60SUB 508 <sQ> 
378 COLOR PLOT 58,188: Q=USR (ADR (MAS) „1 

78) <FB> 
38@ PLOT 388,188: Q=USR (ADR (MA$) „17@) <ZT> 
398 SOTO 398 <ar> 
499 REM «== KREIS ZEICHNEN <aT> 
508 FOR ALFA=@ TO 368 STEP S <UB> 
S1® X=XP+COSCALFA)HR=:Y=YP+SINCALFAI«R  <XQ> 
52@ IF ALFA=@ THEN PLOT X,Y <IF> 
538 DRAWTO X,Y <06> 
542 NEXT ALFA <wa> 
5S5® RETURN <mz> 
TORAR DATA.104,133,105,184,104,133,119,7 

2,162,3,1@2,92,1@2,91,1@2 <> 
30802 DATA.105,202,208,247,162,4,38,105, 

20@2,208,251,165,1@5,133,92 <TH> 
30084 DATA.133,98,153,103,133,1@1,165,91 

„133,97,133,1@2,133,188,165 <ZH> 


38926 DATA.90,133,96,169,1,133,107,208,7 
1,176,18,169,8,24,102 

32288 DATA.118,186,5,1192,133,110,239,96, 
165,76,2@1 ,192,208,254,104 

3@@19 DATA.133,11@,165,92,133,98,133,1@05 
„133,181,165,91,133,97,133 

3@@12 DATA.192,133,190,165,98,133,96,169 


<RB> 
<PN> 


<EF> 


„2,133,187,165,96,291,2 <Ip> 
30014 DATAx240,17,198,96,169,0,6,110,42, 
5,118,133,118,288,5 <Pv> 
3881& DATA.176,2,144,253,96,32,0,6,166,7 
8,32,54,6,135,184 <ıu> 
38818 DATA.164,97,49,188,162,0,42,176,28 
„232,224,8,208,248,32 <3a> 
30828 DATA.39,6,1792,39,240,50,2080,177,18 
8,208,234,32,39,6,208 <YH> 


30022 DATA.242,165,107,208,14@,240,204,1 
96,97 ,208,4,228,98,24@,65 

38024 DATA.32,70,6,32,41,6,134,181,132,1 
@8,166,98,32,78,6 

30826 DATA-153,184,164,97,49,108,162,8,1 


<TR> 


<RD> 
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Q6,202,176,19,208,250,32 <ve> 


39028 DATA-S9,6,192,0,240,16,136,177,108 


+208,236,32,39,6,208 <XK> 
I0038 DATA-242,32,54,6,52,41,6,134,103,1 
32,1@2,24,232,208,182 <mp> 
30032 DATA-S6,176,250,144,141,224,7,240, 
&,42,232,144,17,176,246 <EN> 
30054 DATA-196,100,176,26,192,39,240,22, 
200,177,108,162,255,208,231 <BT> 
309236 DATA196,100,209,4,228,121,176,7,1 
32,97,134,98,24,144,214 <NQ> 
30238 DATA.166,98,32,54,6,164,97,17,108, 
162,8,106,282,144,16 <oy> 
30840 DATA.208,250,192,0,249,170,136,196 
‚1@2,144,185,177,108,56,176 <LW> 


Basic-Listing zu »Fill« (Schluß) 


30842 DATA.234,196,102,208,6,228,103,248 
„172,144,170,132,97,134,98 <BL> 
30044 DATAL24,144,166 <S2> 
30046 DATA-165,96,133,105,169,0,133,108, 
162,8,70,105,144,3,24 <CW> 
30048 DATA.105,40,106,1@2,108,202,208,24 
3,153,199,24,165,108,1@1,88 ar> 
30059 DATA.153,188,165,109,101,89,133,1@ 
9,96,169,255,37,194,37,118 vx> 
30052 DATA.17,188,145,108,169,255,133,1@ 
4,96,169,255,224,0,248,7 <FC> 
30054 DATA.134,105,24,106,2@2,208,251,16 
6,185,76,169,0,224,0,248 <Tım> 
3Q@56 DATA.249,134,105,56,106,202,208,25 
1,166,105,96 <UC> 


Mit »Happy-Mon« auf der Suche 


Will man den RAM-Speicher durchforsten, sollte 
man einen Maschinensprache-Monitor verwen- 
den. »Happy-Mon« ist sehr leistungsfähig und bie- 
tet alle Funktionen, die Sie brauchen. 


dazu, Werte hineinzuschreiben und wieder zu lesen. 

Diese Eigenschaft nutzt auch der eingebaute Basic- 
Interpreter im Atari-Computer. Allerdings fällt es schwer, von 
Basic aus zu verfolgen, welche Werte wie und wo im Spei- 
cher abgelegt wurden. Mit dem Basic-Befehl PEEK kann man 
seine Neugierde zumindest teilweise befriedigen. Dabei 
erhält man einen Dezimalwert zwischen O und 255. Was 
fängt man aber damit an? Möchte man nämlich wissen, wel- 
chen Befehl der gePEEKte Wert ausführt, muß man eine 
Befehlscode-Tabelle zur Hand nehmen. Dieses Verfahren ist 
sehr aufwendig, undnicht selten schleichen sichnoch Fehler 
ein. Hierist»Happy-Mon« eine willkommene Hilfe, denn unse- 
ren Maschinensprache-Monitor lädt man einfach zusätzlich 
in den Speicher. Das Programm kann dann einen bestimmten 
Adressenbereich disassemblieren oder einen Hexadezimal- 
oder Dezimal-Dump auf dem Bildschirm ausgeben. Tabelle 1 
zeigt eine Gesamtübersicht der verfügbaren Befehle von 
»Happy-Mon«. 
Hexdump- und Editierfunktionen 

Der Befehl »Z Adresse« bewirkt die Ausgabe eines Hex- 
dumps ab Adresse »Adresse«. Es sind beliebige Anfangs- 
adressen zwischen dezimal 0 und 65535 zulässig. Bevorzu- 
gen Sie hexadezimale Zahlen, müssen Sie das Kennzeichen 
$ verwenden. Dies gilt übrigens‘für alle numerischen Be- 
fehlsparameter. 

Beispiel: »Z $8000« gibt die ersten acht Byte des »Happy- 
Mon«-Objektcodes in hexadezimaler Darstellung aus. An- 
schließend erscheint die Frage »Continue (Y/N)« wobei Y für 
»ja« steht. Betätigen Sie die Y- oder die RETURN-Taste, um die 
nächsten acht Byte auszugeben. Mit N für nein oder der 
BREAK-Taste übergibt man die Kontrolle wieder an den Ein- 
gabeeditor. Empfinden Sie die ständige Frage »Continue 
(Y/N)« als überflüssig, fügen Sie nur ein N an den Befehl an. 
Beispiel: Mit »Z $8000,N« erfolgt eine ständige Ausgabe, die 
nur mit CONTROL 1 oder mit der BREAK-Taste unterbrochen 
werden kann. 

Übrigens können Befehlszeilen beliebig viele Leerzeichen 
enthalten. Der Befehl »Z $8000,N« hat dieselbe Funktion wie 


B ekanntlich dient der RAM-Speicher eines Computers 


»Z $8000 ‚Ne. Die einzige Einschränkung: Zwei Parameter 
dürfen nur von einem Komma getrennt sein. 

Ähnlich den oben beschriebenen Befehlen arbeitet auch 
der L-Befehl. Die Syntax ist identisch zum Z-Befehl. Zusätz- 
lich wird nur noch die ASCII-Umsetzung der Byte ausge- 
geben. 

Die bisherigen Funktionen dienen nur zum Lesen bestimm- 
ter Adressen. Mit »Happy-Mon« sind aber auch verschiedene 
Speicherbereiche veränderbar. Dazu wird bei der Ausgabe 
von Speicherinhalten vor jede Zeile das Größer-Zeichen (>) 
gesetzt. Dieses Zeichen stellt im Eingabemodus wiederum 
einen Befehl dar. Erhält nämlich der Editor eine Zeile mit vor- 
gestelltem Größer-Zeichen, so werden die acht darauffolgen- 
den Werte in den RAM-Speicher übernommen. Eine erfolg- 
reiche Übernahme bestätigt »Happy-Mon« mit einem kurzen, 
tiefen Ton. 

Wurde also ein bestimmter Speicherbereich mit Z oder L 
gedumpt, können Sie diesen mit den üblichen Editierfunktio- 
nen wie DELETE, BACKSPACE oder INSERT verändern. 
Anschließend kann die betreffende Zeile mit der RETURN- 
Taste in den Speicher übernommen werden. Versuchen Sie 
diese Funktion aber bitte nicht an Adressen, die »Happy- 
Mon« belegt. 

Beim Editieren muß sich übrigens mindestens eine Hexa- 
dezimalzahl hinter dem Doppelpunkt befinden. Bedenken Sie 
aber, daß sich eine Hexadezimalzahl stets aus zwei Zeichen 
zusammensetzt (0 bis 9 und A bis F). Die Verwendung und 
Anzahl von Leerzeichen ist freigestellt. 

Weitere Editierfunktionen 

Eine besonders schnelle Eingabe von größeren Hexcode- 
Blöcken erlaubt die Funktion A. Der Befehl »A $5000« 
bewirkt die Ausgabe von »>5000:« auf dem Bildschirm, 
wobei der Cursor hinter dem Doppelpunkt positioniert ist. 
Jetztkönnen bis zu acht Hexadezimalwerte eingegeben wer- 
den. Mit RETURN erfolgt die Übergabe der kompletten Zeile 
in den RAM-Speicher, und die nächste Anfangsadresse wird 
ausgegeben. Mit BREAK verläßt man diesen Modus wieder. 

Ähnlich arbeitet Funktion E. Zusätzlich werden hier die 
ASCII-Werte ausgegeben. Mit RETURN isteine Zeile dann im 
Speicher. 

Der Disassembler 

Zum Disassemblieren stehen »Happy-Mon« zwei verschie- 
dene Modi zur Verfügung. Den ersten Modus ruft der Befehl 
»D Adresse(,N)« auf. Hier erfolgt die Ausgabe in mnemoni- 
scher Form und in der Reihenfolge: Adresse, Hexcode und 
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Erklärung Fehlermeldung Erklärung 
Monitorfunktionen 1 Falscher Hexadezimal-Wert 
<hexnum: hi bis h8 Editieren im Speicher 2 Falscher Dezimal-Wert 
L Anfangsadresse (‚N) Hex- und ASCII-Dump 3 Byte/Zeropage erwartet 
Z Anfangsadresse (‚N) Hexdump 4 ‚Angegebene Anfangsadresse 
A Anfangsadresse ‚Automatische eat im’sgefähdlichen« Bereich von 
Bear) $D410 bis $D/FF 
E Anfangsadresse ‚Automatische 5 Falls bei der Eingabe einer 
‚Adressen- und Dumpausgabe bestimmten Anzahl eine Null ein- 
Disassembler gegeben wird, tritt diese Fehler- 
5 meldung auf 
‚Anfangsadresse (‚N} Disassemblieren 
7 x n = 6 Unbekannter Befehl 
‚Anfangsadresse (‚ Erzeugen eines 
ir Aesempler verstandenen romats | |17 Felermate Syntax einer 
m = - - - 8 Tritt nicht auf 
Anfangsadresse, Verschieben eines 
Neuanfang, Anzahl Speicherblocks El Falscher Parametertyp 
P Adresse, Byte Single Byte POKE 128-255 Betriebssystem-Fehler 
NE ‚Adresse, Word 2 Byte-POKE (Low/High) Die Fehlermeldungen von »Happy-Mon« 
FF Anfangsadresse, Füllen eines Speicherbereichs. 
‚Anzahl, Byte PROGRAMM-STECKBRIEF 
T Anfangsadresse, Setzt einen String im ASCII- = 
a re Programmname Happy-Monitor - 
Suchen im Speicher | Progeakmiyp: mama 
== SochtenByie Programmiersprache Maschinensprache | 
Byte (‚N) Programmlänge 6407 Byte 
HW Anfangsadresse, Sucht einen 2-Byte-Wert für Computer 600 XL/800 XL1130 XE 
Word (‚N) Low/High) M |; Har = ck 
usätzliche Hardware Diskettenlaufwe: 
Ein- und Ausgabe 
I - Er = 1 Eingabehilfe AMPEL 
= = = 
5 N Ausgabekanal Bemerkung Die abgedruckte Version läuft mit, 
z DOS 2.0 oder DOS 2.5. Für DOS-XL- 
N | Besitzer ist eine zweite Version auf der 
R Sektornummer, Liest einen Sektor Leserservice-Diskette vorhanden 
Bufferanfang von Deren Diskette 
'W Sektornummer, Schreibt einen Sektor (MONITOR.COM/MONITOR1.COM) | 
Bufferanfang auf Diskette 
Hexadezimal-Dezimal-Wandlung als ».BYTE« dargestellt. Beachten Sie im Zusammenhang mit 
? Dezimalwert 'Wandelt eine Dezimalzahl der U-Funktion auch den O-Befehl. 
ae m Spezielle Speicherzugriffe 
2 $Hexadezimalzahl ‚Wandelt eine Hexadezimalzahl Befehl Erklärung 
in eine Dezimalzahl um »M Anfangsadresse, Neuanfangs- bewegt einen Speicherblock 
»Happy-Mon« verlassen adresse, Anzahle 
»P Adresse, Byte« Einzelbyte-POKE 
2 Se >V Adresse, Worde Doppelbyte-POKE im Low/high- 
a Rückkehr zum Modul Format 
(falls vorhanden) >F Adresse, Anzahl, Byte« Füllen eines Speicherbereiches 
erschiossnes 3T Adresse, "String”« Speichert ab Adresse »Adresse« 
einen String im ASCII-Format ab 
G Adresse, Führt eine Maschinensprache- 2 
Unterroutine aus Suchfunktion 
K a »Happy-Mon« ermöglicht es, den RAM-Speicher nach 
und invertierter Darstellung ET Sn Doppelbyte a durchsuchen. Um ein einzelnes 
We B = yte zu finden, geben Sie folgenden Befehl ein: »HB An- 
Seen - ale, fangsadresse, Byte (‚N)«. Nun beginnt ab Adresse »Anfangs- 
+ Wert Setzt die Variable >+« adresse« die Suche nach dem eingegebenen Byte, und 


Befehlsübersicht von »Happy-Mon« 


Mnemonic. Die Zeilen beginnen mit dem >-Zeichen, so daß 
sich die Hexadezimalwerte wieder editieren lassen. 

Der zweite Disassembler-Modus wird mit »U Adresse(,N)« 
aufgerufen. In diesem Modus werden zu denmnemonischen 
Codes keine Adressen und Hexcodes, sondern Zeilennum- 
mern ausgegeben. Den erzeugten Code kann man dann mit 
einem Assembler, wie beispielsweise MAC/65, überneh- 
men. Bytes, die sich nicht disassemblieren lassen, werden 


gegebenenfalls wird die zugehörige Adresse im editierfähi-. 
gen Format ausgegeben. Entsprechend verfährt der Befehl 
»HW Anfangsadresse, Word (‚N)« beim Durchsuchen des 
RAM-Speichers nach einem Doppelbyte. 
Ein- und Ausgabe 

Alle auf dem Bildschirm ausgegebenen Texte lassen sich 
auch auf einem Drucker wiedergeben. Ein zweiter Ausgabe- 
kanal öffnet sich mit »O #Filespezifikation«, wobei Kanal 
Nummer 2 verwendet wird. Mit dem Befehl »N« kann man den 
Kanal wieder schließen. Als zweiten Ausgabekanal sollteman 
niemals den Editor oder den Bildschirm anwählen. 
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Ergänzen «AAPPy.x 


Sie jetzt Ihre COMPUTER -Sammlung 


Schaffen Sie sich ein 
interessantes N 


gleichzeitig ein wertvolles Archiv! 


Kennen Sie alle »Happy Computer«-Ausgaben von 1985? Suchen Sie einen ganz bestimmten 
Testbericht? Oder haben Sie einen Teil eines interessanten Kurses versäumt? Suchen Sie nach 


einer speziellen Anwendung? 


Damit Sie jetzt fehlende Hefte mit »Ihrem« Artikel nachbestellen können, 


finden Sie auf diesen 


Tine 


Und so kommen Sie schnell an die noch lieferbaren Ausgaben: Prüfen Sie, welche Ausgabe in 
Ihrer Sammlung noch fehlt, oder welches Themia Sie interessiert. Tragen Sie die Nummer 
dieser Ausgabe und das Erscheinungsjahr (z.B. 2/85) auf dem Bestellabschnitt der hier 
eingehefteten Bestell-Zahlkarte ein. Die ausgefüllte Zahlkarte einfach heraustrennen und 
Rechnungsbetrag beim nächsten Postamt einzahlen. Ihre Bestellung wird nach Zahlungs- 


eingang umgehend zur Auslieferung gebracht. 
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Be mie Die Happy Computer-Sammelbox 
san Gere N ud Raupe) Ok nut m Tab 
Für alle Leser, die »Happy Com- 
oz puter« regelmäßig kaufen, sam- 
meln oder im Abonnement bezie- 
hen, gibt es ein interessantes Ser- 
vice-Ängebot: die Happy Compu- 
ter-Sammelbox! 
Mit dieser Sammelbox bringen 
Sie nicht nur Ordnung in Ihre 
Bee wertvollen Hefte, sondem schaf- 
= fen sich gleichzeitig ein interes- 


santes und attraktives Nachschla- 
gewerk. 


Übrigens: Die Sammelbox ist 
nicht nur ein praktisches 
Aufbewahrungsmittel: Sie, 
eignet sich auch her- 


vorragend als Ge- paßt in die pr 


schenk für Freun- 
de und Bekannte 
zu vielen 
Anlässen. 


Auch die bisher 
erschienenen Sonderhefte 


können Sie 
jetzt direkt bestellen 


Ein kompletter 
12 Hefte) 
schaun (1 che 
Sammel-Box! 
Am besten gleich 
bestellen! 


SONDERHEFT 01/84: SINCLAIR. 
Unentbehrliche Informationen zu den Sinclair 
Computern ZX8] und Spectrum. 


SONDERMEFT OS: SEC nam 
Anıwendungsbezogene Listings und Tips@ Tricks 
für alle Spectrum! 
SONDERHEFT 02/85: SCHNEIDER 1 


Eine Fülle wertvoller Beiträge und Listings 
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ALEB:FS 
Aura: 7F 
G1F8:30 


0239:48 
0240: 88 
0248: B1 
0250: 98 
0258: A8 
9260:4C 
@268: 135 
0270:20 
@279:49 


BE<TI> 
18<08> 
SO9A> 
C7<28> 
C9<1D> 
AD<2B> 
6QCAaD> 
86<07> 
ER<CB> 
SA<DS> 
FO43> 
Fac1ı7> 
ARCE7> 
AI<D2> 
856377 
67°05> 
BSCAc> 
BSCFS> 
ASCAE> 
2U<cA> 
7E<BC> 
BA<B3> 
0C<68> 
84<D2> 
ZB<ECH 
FF<a2> 
BR<CB> 
BTSIF> 
BO<CB> 
cacaa> 
6B<OB> 
BO<Ca> 
AR» 
B1<19> 
AS<B7> 
60<Q1> 
IEST8> 
30<C2> 
82<3D> 
Z20<aB> 
Ba<AA> 
BS<BA> 
IO<SA> 
CR<D1> 
BR<ar> 
68<a5> 
BI<SS> 
AB<O1> 
B1<A2> 
2OCSA> 
AI<a2> 
BI<BA> 
83<45> 
B047> 
ERC6B> 
BX1c>H 
ZBSECY 
FO<aS> 
AS<ED> 
20<42> 
BI<a6> 
29<65> 
F367> 
AI<BB> 
44<52> 
4ICTA> 
B1<7C> 
AZ<EB> 
BRTF> 
3019 
R<a2> 
ABCBA> 
00<87> 
BRL66> 
6B<11> 
IB<AS> 
IOa6> 
@3639> 
B2<36> 
ISCBF> 
FD<DC> 
ARCAS> 
20<F1> 
Q0<93> 
82<65> 
BB<16> 
20<38> 
20<14> 
6BETF> 
ARC7a> 
CS<D7> 
ADS7B> 
SD<EI> 
a2<2F> 
DO<FR> 
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a 
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N 
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a7 


BIBSHRSZFASHASTERESE 


[7 


BRAANAASE 


87 


QB<c9> 
«257 
6049) 
20<98> 
08<47> 
60<2C> 
AICSS> 
80<48> 
20<eD> 
2C<71> 
BS<DA> 
19<6C> 
@2<A9> 
an<ar> 
BE<TB> 
I4<D7> 
82<c8> 
AD<13> 
IA<AB> 
EACSS> 
18<CA> 
AICAB> 
ASCA9> 
@2<Da> 
5350> 
BSC9B> 
DB<cAa> 
ACCAaB> 
B4<aB> 
@2<F2> 
82<96> 
OD<66> 
BA<a6> 
00<25> 
BI<DE> 
@0<52> 
EA<Da> 
8573> 
OS<AE> 
D<IF> 
au<7D> 
FD<BL> 
ACSCcE> 
42<F7> 
2C<42> 
B511> 
BS<FB> 
BB<EF> 
SS<SE> 
BDcas> 
AU<ar> 
84<99> 
AISDE> 
2064 > 
SB<35> 
28<85> 
Qa<SD> 
@B<ca> 
aacDa> 
@RcDB> 
BR<EB> 
QR<EB> 
BR<Fa> 
BR<FB> 
00<a0> 
aacan> 
an<ı2> 
aa<ıa> 
@0<22> 
QR<2a> 
@B<32> 
BR<sA> 
aa<az> 
aacany 
0Q<52> 
QR<sa> 
OR<62> 
BRCaA> 
Q0<72> 
aR<T7a> 
au<az> 
aucan> 
aa 92> 
au<a> 
BOcA2> 
OR<An> 
AO<B2> 
@@<BA> 
AI<BS> 
DIAS» 
92<65> 
02<20> 
0C<39> 
@z<s1> 
ADESC» 


0638:00 A9 
2640:9D 45 
9648: 4C 


SEETHRAKAARSERZET 
a 
a 


82 00 am 


@4C0:@2 02 02 92 02 
@6CR:@2 92 41 AS 86 
@6D0:AD AC 92 Ca A9 


@7D8:C9 4B DO @5 AC 29 
@7E0:38 D@ 08 A9 aı aD 
07E8:4C BE 85 C9 47 DU 
Q7F0:45 


@u10:2A FO 04 C9 AD Da 
0820:A4 80 20 39 85 A2 
@828:81 C9 SA F® @5 AB 
0830:5D 82 29 3@ 83 20 
@RSG:A2 BO Al BL 20 15 
0840:85 DO EA 20 3@ 83 
Bau: Al 81 20 15 aa As 
@BS@:DC AC 4B BF 20 30 
0859:39 83 A2 00 A1.81 
0860: F0 05 AQ 29 AC SD 
0868:30 83 A2 20 A? ac 
0070:03 20 56 E4 10 85 
0879:82 A9 @3 A2 20 


899: 1A 98 48 A2 20 a9 
@8A0:42 03 20 56 Es 10 
@gag:2c 82 A9 aa 25 87 


AZ UR<BD> 
EB 81<18> 
A9 OUKES> 
Da 0x6C> 
@C <56> 
03 4C<20> 
ID 42<05> 
AF BBcCca> 
45 SMER> 
A9 B6EC> 
10 OICAR> 
Da CO<6b> 
&C BA<CBB> 
890 80<99> 
AB AL<D9> 
AE BOCHD> 
BD 80<2A> 
80 80<7R> 
88 EXES> 
E2 FRC1> 
F3 80<06> 
F2 ED<72> 
88 B0CD9> 
42 SS<Ea> 
@2 02<96> 
@2 82<C4> 
@2 @2<CC> 
FF 8%26> 
85 ABSEC> 
86 an<au> 
ID IKLES> 
A9 Ba<Da> 
05 9D<a8> 
@3 ARcIF> 
ID ABCER> 
20 56<86> 
35 C9&<68> 
SD 82<AB> 
FD 28<SF> 
20 CE<42> 
22 BXxFB> 
81 CHEB> 
BS 84<92> 
a3 ac<aB> 
Ag FF<BZ 
55 DO<FE> 
D® 97<F8> 
BF C9<BO> 
c9 axıR> 
44 DO<aC> 
DO OXES> 
@3 ac<zEy 
AC AE<BI> 
B4 88<7C> 
88 09<31> 
C9 30<69> 
56 DR<C2> 
Da a5<As> 
a3 aC<Er> 
AC 9C<97> 
0® SD<ED> 
aD C9S1> 
BS BA<SF> 
03 ac<1a> 
AC D6CAB> 
a6 ACKEa> 
39 8590> 
Bu ASAB> 
81 CHBB> 
GE 2@<BF> 
am AI<FD> 
a7 ac<72> 
39 BS<CE@> 
80 AS<IO> 
AZ 00<94> 
85 D0<87> 
85 20<90> 
C9 23<70> 
82 20C43> 
ID 42<19> 
AC 20<62> 
42 B3<B9> 
81 9D<1B> 
a5 AREI> 
Ea 1877> 
ac 90<07> 
@3 accany 
68 ABKSF> 
87 AC<SS> 
39 83508) 
aA @3<30> 
39 BS<CFC> 
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BE<AF> 
BD<6@> 
B1<6C> 


80<20> 


29<D@> 
20<34> 
85<2B> 
BE<ZA> 
866) 
ICXEA> 
AREA» 
8B<76> 
@8<17> 
28<94> 
BI<EB> 
ASCFT> 
BE<1a> 
83972 
E6&cas> 
6B<6CH 
Da<B9> 
zu<aa> 
BS<c1> 
BI<A6> 
20<78> 
8559> 
BSCAS> 
F1<D8> 
AC<1E> 
BS<EB> 
IRIE> 
BF<IE> 
2U<34> 
AC<DS> 
BSC1B> 
AXaC> 
IRK26> 
FR<SCH 
AI<BE> 
FRXAS> 
E6<C8> 
ARSCH 
ACSIF> 
IBCSF> 
B1<66> 
@S<aa> 
ZUEc> 
ASFC> 
ASCD9> 
2U<6C> 
BIScAa> 
AZLBE> 
AIAB> 
@8<D2> 
TE<AL> 
AFCSS> 
3AC37> 
20<32> 
F@<DB> 
SB<ED> 
ZU<A2> 
ASCAE> 
BRZE> 
38<65> 
&C<05> 
TR1S> 
6A<51> 
BELICH 
BZLAF> 
AI<Aa> 
FDLEZ> 
65<1B> 
E22 
BBC2F> 
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a3<14> 
B5C34> 
10<29> 
20<65> 
81<12> 
ED<EB> 
BALAF> 
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119B:3F SF IF AF 52 41 35 41<a2> 20 59 
11AB:33 4C 35 SF AA 55 32 326E> es 
11AB:41 4E 44 37 IF SF 62 AIC9D> BE AS 
11B0:34 33 41 4E 44 33 52 4Fcar> 9a 28 
33 IF 50 AC 5@ 3@ 41<7D> n7 00 

44 34 52 AF AC S1 IFC69> c9 4€ 

49 54 32 a1 AE 44 32069) as 97 
11D0:52 4F AU 32 SF 42 4D 4%02> 2@ 4B 
11D8:42 41 4E 44 38 SF 3F 3F<72> #5 97 
11E0:41 4E 44 39 52 AF 40 IIEI> 2a B2 
11EB:SF 53 45 45 30 41 4E aacam> 2a 79 
11F@:36 SF SF SF Al 4E 44 35<B7> BE AS 
11FB:52 AF AC 35 IF 52 54 a9caa> Fa cE 
1200:38 45 AF 52 37 SF SF SFcDa> 97 85 
1208:45 4F 52 35 4C 55 52 33095> mer 
1210:35F 5@ 48 41 3® 45 4F 52<BA> E& 97 
1218:34 AC 53 52 31 3F 4A AIcsr> es 
1220:50 32 45 AF 52 32 4C SSCH3> c4 98 
1228:32 32 SF 42 56 45 42 45CaD> co sr 
1250: 4F 52 358 SF SF SF 45 AF<1B> E6 92 
1238:52 39 40 53 32 39 SF axcsar 9169 
1240:4C 49 3@ 45 AF 92 36 SF<FD> @2 85 
1248:3F IF AS Ar 52 35 MC 53627> 20 a1 
1250:52 39 SF 52 54 55 3@ 41<0@> as D8 
1258:44 43 37 3F SF SF 41 A4CB3> 20 20 
1260:43 35 52 AF 52 33 IF S@ar> SF 9B 
1268:4C Al 3@ 41 44 43 34 52c02> 85 ec 
1270:4F 32 31 3F AA 4D 3® ASc15> 74 20 
1278:41 44 43 32 52 AF 52 32<3E> 20 2E 
1280: 3F 42 36 33 42 a1 44 Ascas> A9 ED 
1288:38 SF SF SF 41 44 43 3%2E> 20 sa 
1290:52 AF 52 39 SF 53 45 a9cA2> vı 81 
1298:30 41 44 43 36 SF IF IFCI9> 15 86 
12AG:41 44 45 35 52 4F 52 I5CC9> sc, 
12AB:SF IF 93 34 Al 37 SF SFC7B> c» e2 
39 33 53 58 a1 3%41> @3 oa 

98 33 SF 44 45 3%23> va 05 

54 58 41 3@ SF 535<38> 05 sc 

32 53 54 #1 32 SsccH> 4C 8D 

32 3F 42 43 43 A2<CE> D8 96 

41 38 SF SF 55 SA<AE> 97 09 

53 54 41 39 33 SA<6E> co on 

SF 54 39 a1 30 SScF@> au oa 

36 54 58 53 30 SF<a9> 97 05 

54 41 35 3F SF A0<S6> 17 82 

34 AC 44 41 37 AC<A7> eo Bı 

34 SF AC 44 39 33625> 88 20 

41 33 4C 44 58 SSC1B> [27] 

41.59 30 AC 44 A1<ıc) s@ AS 

41 58 30 SF AC 44<6C> sı 82 

AT 44 a1 32 AC 44<C2> vo 05 

SF 42 43 33 2 accD2> &D 95 

1338:44 41 38 IF IF AC 44 59057> a2 00 
1340:39 AC 44 41 39 AC 44 SBCF9> vo @2 
1348:41 IF 43 AU 56 30 4C A4<BB> E6 97 
135@:41 36 54 53 58 30 SF ac<21> D8 15 
1358:44 39 35 AC 44 41 35 AC<AB> eı as 
1360:44 58 35 SF 45 50 58 34<75> am 02 
1568:43 4D 5® 37 IF IF 43 Sac7C» 7 24 
1370:59 55 43 4D 50 53 44 4566> 83 AS 
1378:43 33 SF 49 4E 59 30 4500> su Az 
5@ 34 44 45 58 3@ IF<35> 97 08 
1588:45 5@ 59 32 45 AD 5® 32<02> 23 20 
1390:44 45 43 32 IF 42 4E A986) 82 20 
1398:42 43 4D 50 38 SF SF SECDS> a2 20 
15AB:43 AD 50 39 44 45 43 I92B> 97 85 
1IAB:SF AS AC 44 3® A AD 3064) „ans 
13B0:356 SF SF IF 43 AD 50 SSCTE> na 84 
15B8:44 45 43 35 3F 43 50 S8<89> 93.89 25 
135C0:34 53 42 43 37 SF SF ASCIS> 20 ı7 82 
15C8:5@ 58 33 53 42 43 33 4916> wo nı 97 
13D@:4E 43 33 SF 49 AE 58 308<28> 02 Es #8 
1308:33 42 43 34 4E AF 5@ 30C2> 97 va 02 
13EB:SF 45 5Q 58 32 53 42 A3<88> 13 AS 8D 
1SEB:32 49 4E 43 32 IF 42 ascas> AS BE 85 
13F0:51 42 53 42 43 38 IF 3FcH2> a2 20 sı 
1SFB:IF 93 42 43 39 49 GE ASC9I> 24 20 ı7 
1489:39 3F 53 45 44 30 53 AXGE> AS BE 85 
1408:43 36 SF SF IF SS 42 ASC29> 2c 20 ı7 
1410:35 49 4E 43 33 IF IF 20056> 82 60 a2 


85 29 7E 81<D9> E6 97 DA 92 E6 98 AI<EE> 
AS 84 83 BA<SE> 85 BE E6 97 Da 02 E6car> 
89 85 97 AX9S> AS AS DO 13 AS 8D 85<06> 
39 83 A9 @8<9c> 29 AB 81 AS BE 85 BX<S1> 
85 AS AZ @R<BB> AB 81 AB m2 20 51 82<5B> 
Da 84 A9 FF<BS> &D 95 A9 24 20 17 82<87> 
85 89 AS 9ecBr> 8D 85 83 AS SE 85 8%71> 
BE AI SE 2&61> B2 81 A9 2C 20 17 8%65> 
85 83 AS 98<D2> 59 20 17 82 68 a2 0877> 
81 A9 3A 2@<DE> 16E@:Al 97 85 83 E6 97 DO 02<96> 
94 20 58 82<BE> 16EB:E6 98 AS AS DR OR zu AQ<7A> 
IC DO DS 28aS> 16F@:81 AB 84 20 SI 82 20 &D<B8> 
AC 6B 84 AZ<CA> 16F8:95 A9 28 20 17 82 A9 24<49> 
83 AS AS DO<BD> 1700:20 17 82 20 A@ 81 4C 07<BA> 
a2 a0 Al 97<1B> 1788:97 2C 58 29 98 A9 05 8534> 
D@ 02 E& 98<5A> 1710:8B A9 97 85 BC 20 40 82<FE> 
A9 91 85 92<CC> A2 00 Al 97 85 85 20<E0> 
F@ 23 AZ aacıa> 83 E6 97 D® 02 E& 98C9C> 
Da aA E6 91<65> AS DO 08 2® AB 81 AR<FO> 
CB AC 9C 94<73> 20 31 82 2@ &D 95 A9c2B> 
84 85 91 ASB7> 2@ 17 82 A9 24 20 17<7A> 
92 CB 40 IC<F6> 20 AB 81 AC 45 97 29<02> 
91 C9 SF DOCSS> 59 98 A9 41 85 BB ARSCH 
1B AC DE 94<BE> 85 8C 2® 49 82 60 A2<25> 
20 2m 2D 28<19> Al 97 85 85 E& 97 DE<CA> 
A9 D2 85 BB<S1> E6 98 AS AS D® 08 20CEA> 
20 10 82 60<98> 81 AD 04 20 31 82 20a3> 
20 2@ 2® 2085» 95 A9 24 20 17 82 20<82> 
42 39 54 45C7C> 81 A9 2C 20 17 82 AXF6> 
85 8B A9 94<1C> 28 17 82 68 A2 00 Aı<ıa> 
82 A9 00 8513) 85 83 E6 97 DO @2 Edcie> 
60 AG 05 B1<B7> 20 AB BI AS AS DB BScF4> 
C9 98 Da 0526> 84 20 31 82 20 &D 95cA9> 
@1 D® 83 Ac<Sa> 24 20 17 82 20 AD BI<FB> 
Da 85 AC BA<58> 2C 2@ 17 82 A9 59 28035» 
@3 AC FS I%XFC> 82 6a A2 00 Al 97 85<29> 
AC 19 96 CAAE> 85 9A E6 97 DB Q2 E6cE@> 
42 96 09 B&as> AS AS DO 08 20 AB BI<DB> 
96 C9 87 DO<OB> 94 29 51 82 20 6D 95<D9> 
C9 08 08 8%2C> 24 20 17 82 AS 9A C%56> 
99 D@ 03 AC<B6> 90 17 38 A9 00 ES 9Ac73> 
08 03 ac 7F<54> 9A 38 AS 97 ES 9A 85CD1> 
@3 AC AD 97<356> AS 98 E9 DO 85 84 4C<09> 
AS D@ 05 A95a> 97 18 AS 97 65 9A B5cAB> 
AI 20 20 17<27> AS 90,69 00 85 84 20<D5> 
91 85 88 98<2C> 81 60 AZ @8 Al 97 85CD6> 
17 82 68 aucas> E6 97 DO @2 E& 98 Al<ca> 
EE AB B1 2&<FB> 85 BE E6 97 DB 82 E6<FB> 
AS Da 85 A@CIS> a5 AS DO 13 AS 8D B5<AA> 
20 6D 95 68<55> 20 AB 81 AS BE 85 BSC7E> 
A 96 2m SIcA6> AD 81 AB 02 2m 31 B2<DF> 
a9 a1 20 17<50> &D 95 A9 28 20 17 82<3A> 
AL 97 85 8D<E9> 8D 85 85 AS BE 85 84<7E> 
E6 98 Al 97<27> BZ 81 A9 29 2@ 17 82<D9> 
DB 02 E& 98<B9> 20 50 83 20 39 85 20<77> 
AS 8D 85 BKAE> 81 AS 83 85 89 as Ba<ca> 
BE 85 85 20<3C> 8A 20 9C BE AS 89 8556) 
20 Si 82 20<B5> AS BA 85 98 4C 6F 9Bcar> 
20 17 82 AS<EC> 39 50 3® 2@ 2 2E Ar<sı> 
BE 85 84 20<76> 47 20 24 IB AI 62 8%99> 
ao Aı 97 85<D8> A? 98 85 BC 28 40 82<B3> 
@2 E6 98 AScDS> 97 85 83 AS 98 85 B4<Da> 
Aa 81 Am Wa<a2> B2 81 20 38 82 4C 92072» 
&D 95 A9 ZAFF> 31 3@ 3@ 51 2@ SB IB<EB> 
Am 81 68 AZ<BB> 8B 85 8B A 98 85 BC<BB> 
83 E6 97 DE<BB> 40 82 20 58 82 A9 @uca1> 
AS DO OR ZUCAB> 9C A9 FF 85 AS A9 E9<10> 
2@ 31 82 20<6B> Ai A? 03 85 AZ 20 39<cQ> 
2m 17 82 aXxany AZ @@ Ai 81 C9 4E Daca2> 
29 AO 81 68<25> A9 FF 85 9C E6 Al DO<CA> 
85 8D E& 77<As> E& A2 AS 97 85 89 ASC78> 
Al 97 85 8&<27> B5 BA 20 4B BE AS AI<6B> 
E& 98 AS ASc31> 83 AS A2 85 84 20 DI<BS> 
85 83 20 ABc25> AB 92 28 31 82 20 79<B8> 
835 28 am B1<25> 2@ 58 82 2m AB BE ASCa9> 
82 28 &D 9580> Da D2 20 &D 88 F@ Co<F9> 
82 AS 8D 8%F6> «B 84 00 00 00 00 MacB9> 
84 28 B2 BIC) 20 00 20 20 00 aa @a<32> 
82 a9 58 20<10> Laenge 6407 Bytes 

0a Al 97 85653> 


Listing zu »Happy-Mon« (Schluß) 


»Happy-Mon« greift sogar auf einzelne Diskettensektoren 
zu. Dies ist speziell bei Boot-Disketten nützlich, da sie keine 
Files enthalten. Mit »R Sektornummer, Bufferanfang« liest 
man einen Sektor, entweder mit 128 oder 256 Byte Länge, 
in den Speicher ab »Bufferanfang«. Mit »/ Sektornummer, 
Bufferanfang« läßt sich ein Sektor wieder zurück auf Diskette 
schreiben. 

Hexadezimal-Dezimal-Umwandlung 
Gibt man beispielsweise »? 100« ein, wird der entspre- 


chende Hexadezimalwert ausgegeben. »? $100« wandelt 
eine Hexzahl in eine Dezimalzahl um. 
Bildschirmdarstellung 

Mit dem Befehl »K« steht normale oder invertierte Bild- 
schirmdarstellung zur Wahl. 
Maschinensprache-Unterprogramme aufrufen 

Mit »G Adresse« kann ein Maschinensprache-Unterpro- 
gramm, das mit einer RTS-Anweisung enden muß, aufgerufen 
werden. 
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Der Programmcounter und die »+«-Variable 

Zur Vereinfachung der Arbeit können Sie jederzeit die 
Platzhalter »*« und »+« verwenden. Dabei repräsentiert »*« 
den Programmcounter und wird in den Funktionen LL, E, Z, A, 
D, U, F, und T mitgeführt. Ein mit der Funktion »L« gestartetes 
Listing setzt »L * «fort. »+«isteine vom Benutzer frei definier- 
bare Variable. Den Wert von »*« ändert man mit »* Wert«, und 
von »-+« mit »+ Wert«. Die Befehle »* +« und »+ *« sind 
zulässig. 

»Happy-Mon« arbeitet sowohl mit DOS-XLalsauch mitDOS 
2.0 oder DOS 2.5. Die abgedruckte Version läuft allerdings 
nur mit DOS-Versionen, die nicht stänı im Speicher verblei- 
ben, wie DOS 2.0 oder DOS 2.5. Für Besitzer von DOS-XL 
oder anderen residenten DOS-Versionen befindet sich. auf 
der Leserservice-Diskette eine zweite Version mit dem 
Namen »MASTER1.COM«. 


Besondere Hinweise zu »Happy-Mon« 


Geben Sie zunächst das Listing mit AMPEL ein. Ist»Happy- 
Mon« komplett abgetippt, speichern Sie das File bitte mehr- 
fach. Legen Sie sich auch eine Kopie auf einer weiteren Dis- 
kette an, die Sie an einem sicheren Platz aufbewahren. Sollte 
dann Ihre Arbeitskopie versehentlich gelöscht werden, 
haben Sie immer noch eine Kopie. Sicher ist sicher! 
Aufruf von »Happy-Mon« 

Sollten Sie die abgedruckte Version verwenden (auf der 
Leserservice-Diskette finden Sie das File mit dem Namen 
»MASTER.COMe«), müssen Sie entweder mit DOS 2.0 oder 
DOS 2.5 arbeiten. Um das Programm zu starten, gehen Sie 
zunächst mit »DOS« ins DOS-Menü. Dann laden Sie den 
Maschinensprache-Monitor mit der L-Funktion. Kehren Sie 
anschließend mit B zum Basic zurück, jetzt können Sie bei- 
spielsweise ein Basic-Programm eingeben oder von Diskette 
laden. »Happy-Mon« rufen Sie mit »? USR(32768)« auf. Sie 
befinden sich anschließend im Eingabeeditor des Maschi- 
nensprache-Monitors. Hier können Sie dann alle beschriebe- 
nen Funktionen ausprobieren. Mit X gelangen Sie zum DOS 
zurück und mit Q zum Basic. Sollte sich vor dem Aufruf von 
»Happy-Mon« ein Basic-Programm im Speicher befunden 
haben, steht einer Weiterbearbeitung nichts im Wege. 

Die zweite »Happy-Mon«-Version ist nur auf der 
Leserservice-Diskette erhältlich. Sie finden Sie mit dem 
Namen »MASTER1.COM«. Diese Ausführung nutzt die Adres- 
sen ab $2200, also oberhalb von DOS-XL. Somit ist ein 
Zugriff auf die Adressen $8000 bis $9FFF, in dem sich 
»Happy-Mon« normalerweise befindet, möglich. Außerdem 
ist diese Version Voraussetzung, wenn Sie die Diskettenver- 
sion des MAC/65-Assemblers verwenden. Bevor Sie 
»Happy-Mon 2« einsetzen, ist noch das File »AUTRUN.A« in 
»AUTORUN.SYS« umzubenennen. Anschließend können Sie 
diese Diskette booten. Wenn Sie mit der Diskettenversion 
des MAC/65-Assemblers arbeiten, schalten Sie den Atari- 
Computer mit gedrückter OPTION-Taste ein, um das Basic zu 
desaktivieren. Von der DOS-Befehlszeile aus laden Sie dann 
anschließend das File »MASTER1.COM«. Ansonsten sind die 
Funktionen in beiden »Happy-Mon«-Versionen identisch. 
Wichtige Anmerkung 

»Happy-Mon« verwendet die Zeropage-Adressen 128 bis 
160! Diese sollten nicht verändert werden. Sprünge von und 
zu Programmen, die diese Register benutzen, wie beispiels- 
weise Basic und der MAC/65-Assembler, sind allerdings pro- 
blemlos. »Happy-Mon« rettet diese Register bei der Initiali- 
sierung und stellt sie beim Verlassen (auch bei RESET) wie- 
der her. 


(Thomas Fischermann/wb) 


Windows: 
Nicht nur ein 
Augen- 
schmaus 


Mit der Window-Technik läßt sich eine Benutzer- 
führung realisieren, die bislang nur teuren 
Personal Computern vorbehalten war. 


bindet man diese Begriffe mit einer hervorragenden 

Benutzerführung. In dieser Hinsicht hat besonders 
der Atari 520 ST von sich reden gemacht. 
mm »Windows« für den Atari 800XL/130XE ist 
mit GEM, der Benutzeroberfläche des Atari ST, 
zu vergleichen. Vielmehr soll es dem Atari-Fan zeigen, daß 
sich eine abgespeckte Version auch auf den »kleinen« Com- 
putern realisieren läßt. Mit diesem Programm kann man an 
einer beliebigen Stelle auf dem Bildschirm ein Fenster ein- 
blenden. Der Vorteil dieser »Window-Technik« liegt darin, ver- 
schiedenartige Texte oder Grafik und Text nebeneinander 
bearbeiten zu können. Löscht man das Fenster, erscheint auf 
dem Bildschirm wieder der ursprüngliche Text. 

Der Trick dabei ist relativ einfach. Bevor man ein Fenster öff- 
net, wird der überblendete Bildschirmausschnitt in einen 
anderen Speicherbereich »gerettet«. Daraufhin ist dieser 
Bildschirmausschnitt für andere Arbeiten frei. Benötigt man 
das Fenster nicht mehr, wird der anfängliche Bildschirmaus- 
schnitt wieder in den Bildschirmspeicher geschrieben. 
Soviel zur Fenstertechnik. Wenden wir uns dem Programm 
selbst zu. 

Tippen Sie zunächst Listing 1 mit dem Prüfsummer ab und 
speichern Sie dann das Programm. Nachdem Sie RUN einge- 
geben haben, wird ein File mit dem Namen WINDOWS.OBJ 
auf Diskettenlaufwerk Nummer eins abgelegt. Dieses File 
enthält dann die eigentlichen Window-Routinen. Um es ein- 
fach und schnell von Basic aus laden zu können, verwenden 
Sie Listing 2 (bitte mit dem Atari-Prüfsummer eingeben). Das 
Window-lnitialisierungsprogramm liest dann die Window- 
Routinen in den Speicher. Da nun die Betriebssystemerwei- 
terung im Speicher vorliegt, können Sie bedenkenlos mit 
NEW löschen. 

Ein anderer Weg, das Programm »Windows« zu laden, ist 
von Basic aus »POKE 106,144:DOS« einzugeben. Vom DOS- 


H: man den Begriff »Window« oder Fenster, so ver- 


PROGRAMM-STECKBRIEF 


Programmname Windows 

Programmtyp Utility 

Programmiersprache Basic und Maschinensprache 
Programmlänge 4974 Byte 

für Computer 800 XL/130 XE 

zusätzliche Hardware keine 


Eingabehilfe Prüfsummer und AMPEL 
Bemerkung Maschinenprogramm mit Basic-Lader 
Leserservice Diskette (LADE.BAS, WINDOWS.COM, 


WINDBEIS.BAS) 
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mit 


RE TURM 


Jetzt es 

NEINRIC 

Sillst Du eine Karte 
ziehen (3/3 > 

Du hast 5 Punkte 


<c) 1935 DWS 


So könnte ein typischer, mit Windows versehener Bildschirm 
aussehen 


Menü aus ruft man dann »WINDOWS.OBJ« auf und kehrt wie- 
der ins Basic zurück. Nun noch »?USR(37120)« eintippen, 
und die Fenster sind abrufbereit. Die Betriebssystemerweite- 
rung benötigt 4 KByte-RAM. Zieht man aber die Vorteile der 
Fenstertechnik in Betracht, dann ist dieser Speicher 
bestimmt kein verschwendeter Platz. Die Fenster werden in 
Grafikstufe O übrigens genauso angesprochen, wie andere 
Gerätetreiber auch. 


Öffnen eines Windows für Ein- und Ausgabe 

»POKE 1538,[X-Länge des Windows]: POKE 1539, [Y- 
Länge des Windows]: POSITION [X-Position], [Y-Position]: 
OPEN #[Kanalnummer 1-7],12,0,” 

Durch den OPEN-Befehl wird ein (zunächst leeres) Win- 
dow auf den Bildschirm ausgegeben. Dabei enthalten die 
Speicherstellen 1538 und 1539 die X- und die Y-Ausdeh- 
nung (X-Ausdehnung = 5 bedeutet zum Beispiel, daß im Win- 
dow 5 Spalten zur ‘Verfügung stehen). 

Beispiel: »POKE 1538,10:POKE 
4,2:OPEN # 1,12,0,"W:”« 


Beschreiben eines Windows 
»PRINT #[Kanalnummer wie bei OPEN]; "TEXT ”«. 

Die Ausgabe von Text erfolgt, wieman es von den Grafik-Modi 
1 und 2 her kennt. Das ASCIl-Zeichen 125 löscht den Inhalt 
des Windwos, und der windowinterne Cursor wandert dann 
wieder an die obere linke Ecke des Fensters. Wenn der Cur- 
sor dann den unteren Rand des Fensters erreicht hat, wird 
der Inhalt des Windows nach oben gescrollt. Beispiel: 
»PRINT #1;"5+7=";5+7« 


Einlesen einer Textzeile 

»INPUT #[Kanalnummer wie bei OPEN]; 
name]«. 
Der INPUT-Befehl wurde gegenüber dem üblichen INPUT 
etwas verbessert. Der Benutzer kann mit dem Cursor die 
INPUT-Zeile nicht mehr verlassen (zum Ausbessern von 
Fehleingaben stehen die Pfeiltasten und DELETE-BACK- 
SPACE zur Verfügung). Außerdem kann man die maximale 
Länge der Eingabe festlegen, indem man den entsprechen- 
den Wert in die Speicherzelle 844+[Kanalnummer* 16] 
POKEEL. Nach einem INPUT-Befehl steht in dieser Adresse 
wieder eine Null. Enthält diese Stelle keinen Wert größer Null, 
dann wird die Eingabelänge von der letzten Spalte des Win- 
dows begrenzt. Beispiel: »POKE 860,5:1NPUT #1;A$« 
oder »INPUT #1;X«. 


Positionieren des Cursors im Window 
»X=[Spalte O bis X-Ausdehnung (Inhalt von 1538) des 
Windows minus 1]:Y=[Zeile O bis Y-Ausdehnung (Inhalt von 


1539,8:POSITION 


[Variablen- 


1539) des Windows minus 1]:POINT #[Kanalnummer wie 
bei OPEN],X,Y«. 

Das nächste Zeichen wird dann an der entsprechenden 
Stelle ausgegeben (der POINT-Befehl funktioniert im Zusam- 
menhang mit dem Window wie der POSITION-Befehl beim 
Bildschirm-Editor). Beispiel: »X=4: Y=1: POINT #1,X,Y« 


Schließen eines Windows 

»CLOSE #[Kanalnummer wie bei OPEN]« 
Der ursprüngliche Inhalt des vom Window verdeckten Bild- 
schirmteils wird wieder hergestellt. Beispiel: »CLOSE #1«. 


Schließen eines Windows, ohne den ursprünglichen Bild- 
schirminhalt wieder herzustellen 

»POKE 832 +[Kanalnummer* 16],255«. Nun kann der 
Kanal wieder benutzt werden, obwohl das Window auf dem 
Bildschirm bleibt. Beispiel: »POKE 848,255«. 


Beim Öffnen und Schließen eines Windows (mit CLOSE) 
verlegt der Window-Handler den Cursor in die obere linke 
Ecke des Bildschirms. 

Selbstverständlich erkennt der Window-Handler auch 
eventuelle Fehler (zum Beispiel Cursor außerhalb des Bild- 
schirms). Man erhält dann die gewohnten Fehlermeldungen. 
Dadurch ist es fast unmöglich, die Window-Routinen durch 
falsche Werte zum Abstürzen zu bringen. 

Wer noch einen Atari 400 oder 800 besitzt, muß in die 
Window-lnitialisierungsroutine (Listing 2) die Zeile »32005 
POKE 121,254:POKE 122,254« einfügen. Die INPUT- 
Routine des Window-Handlers benutzt nämlich diese 
Adresse (KEYDEF), die bei den XL- und XE-Modellen auf den 
Anfang der Tastaturbelegungstabelle zeigt, zur Tastatur- 
abfrage. Durch Abändern von Listing 1 (Zeile 105 »OPEN 
#1 8,0,”C:”«) und Listing 2 (Zeile 32035 »OPEN #1,4,0, 
«) läßt sich die Betriebssystemerweiterung an den 
Atari-Programmrekorder anpassen. 

Listing 3 beinhaltet ein kleines Spiel, mit dem Sie die 
Window-Betriebssystemerweiterung ausprobieren können. 
Es handelt sich darum, durch Ziehen von Karten und Addition 
ihrer Einzelwerte möglichst nahe an die Zahl 23 heranzukom- 
men, sie aber nicht zu überschreiten. 


Windows - technisch betrachtet 


Die zentrale Ein-/Ausgaberoutine des Betriebssystems 
(CIO) benutzt für die elementaren Ein-/Ausgabeoperationen 
wie Gerät öffnen, Gerät schließen, Byte lesen, Byte schrei- 
ben, Statusabfrage und sonstiges, die sogenannten Geräte- 
Handler. Die Anfangsadressen dieser Maschinensprach- 
Unterprogramme werden von der CIO über die Handler- 
Adressen-Tabelle (HATABS, $031A bis $033F) berechnet. 
Durch Ergänzen dieser Tabelle mit eigenen Handler- 
Adressen lassen sich beliebig eigene Ein-/Ausgabegeräte 


definieren. (Dietrich Wagner/wb) 
Initialisierungsprogramm 
(Window-Handler wird in 
HATABS eingetragen) $9100-$9118 


Window öffnen $9119-$92A4 


Window beschreiben S92A5-59383 
Sonstiges (Cursor positionieren) $93B4-$93DF 
Textzeile einlesen SIIEO-SIEIF 
Zwischenspeicher für den vom 

Window verdeckten Bild- 

schirminhalt $9800-89099 
Systemvariabien für den 

Window-Handler $0600-$062F 


Wichtige Adressen des Programms »Window« 
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1F 96 68 20:00> A9 08 ED 18 86 ED 1l<ra> 0370:n9 FC @2 aD FC @2<nc> 
20 a0 96 60<67> AB BL 60 ©D 12 @6 AE<an> @378:C9 FF FO F9 AA 20 25 9%E1> 
DE 93 Aa 92<62> 26 AD 20 @6 18 65 sacıs> DO 85 ac 7B 95<03> 
ac 1C 96 20<3A> BA 85 59 An 98 AD 11<63> @3 ac 89 95 ABcE2> 
18 &D 05 Qscne> CB 18 69 26 90 a1 Em<D2> 26 06 C9 7D FO<CH> 
c9 17 30 87<01> 08 F7 18 &D 18 && 9@a2> DO 85 AC SC 95CF9> 
95 20 60 ascoa> G1EB:01 Eu 18 69 Dı ma DL Emc2r> 03 ac 39 93 09°78> 
@& BO Fi S0<B7> BIFG:05 E@ 86 EI AD 12 86 ZI<EE> c9 ıF FO 18 aE<an> 
a2 ac 2a 91<Fo> GLFE:7F C9 20 10 86 10 69 amcıa> 05 C9 61 30 87<F3> 
ES AD 05 Q&cBa> @2@8:4C 84 93 09 6 19 @5 SacaB> 03 58 €9 20 1a<mı> 
A9 00 9D 90<6R> 0208:69 2@ @D 13 B& AF BO 2C<Eh> RE 20 06 BE 10<AR> 
EB 08 FO 11<2F> 9210:12 86 F® 09 AD 15 96 10<02> u& 30 00 F@ B6cra> 
69 28 GD QUcFF> 0218:59 9® OD 13 86 AD 13 @6<c2> 18 90 @D C9 1F<29> 
81 96 CA Dacı2> 28 91 EB EE 18 86 an<ey> 6E 95 20 AS 92<Fa> 
18 65 35 BD<FF> @& CD @2 @& Da ma aa<97> EE 20 86 ac 61caa> 
EE DL 96 AEca9> BD 10 86 EE 11 @6& AD<26> @D FC 02 AD 21<FD> 
AD 0m @& 18c98> 26 CD 03 @6 20 85 20<37> 96 A9 00 aa 2E<25> 
AD GL 06 Kucan> 93 AB ©1 60 AD OB @&cae> AD 25 06 85 E2<A7> 
58 A9 00 ascar> 69 28 05 EZ aD @1 Q&<D1> 85 ES AD 22 U6ca9> 
EI 20 60 92<29> 20 85 E3 AD 00 86 18<F0> 96 AB BI E2 Dacas> 
26 ED 11 Q6<96> S® 05 EB aD O1 06 6%«51> 9% 08 19 F& 10<69> 
99 AC 03 20<97> 85 E1 AS EZ 18 65 sacec> 9E 95 a0 a0 ac<ıı> 
92 AG @1 60<90> E2 AS E3 65 59 85 exxan> aa Da Ca DD F7<36> 
a0 26 85 Eaccn> 18 65 50 85 EB axc7ı> @& 85 EZ AD 24075» 
Ei AS E@ 18<Dn> 39 83 E1 AE 85 06<57> AD 28 06 28 En<Fa> 
90 02 E6 Ei<z1> @3 20 68 92 AE BXer> Bi E2 49 00 sı<cıa> 
39 95 Eı a@ces> @0 8% 1a 45 sa gx<es> 20 06 EC 21 Q6<F@> 
EO 20 22 92<0n> 01 06 65 59 85 Excr@> &1 94 CA BE 20<B1> 
EB A9 aa ancı7> 18 69 20 05 EZ 918» 96 A9 20 20 Axcra> 
96 AD 00 AS<HE> E3 CA D® F2 a9 @0cB9> 95 AC 61 94 AEc26> 
85 E0 98 02<5n> C8 91 E2 CC @2 96<57> 21 06 Da 03 Accan> 
91 E0 20 2D<0n> RE 03 86 CA BE 11<07> GE 20 06 20 17<20> 
91 E@ AD 03<Ca> A6 ZE ED AC 05 30<7C> 94 AE 20 86 EuceD> 
DO DC AS Ea<aB> @2 86 18 18 BC 4E<CH> 20 17 95 aC 61<95> 
€@ 90 @2 Escrı> 13 CC @5 86 19 @E<D7> @2 49 00 aD B6<2C» 
SA 91 EO 20<SE> 86 SC 11 26 A9 Bacaa> 95 ACT 61 94 ADC79> 
43 91 EB &Ucan> @S AB @1 60 AF 0ac7s> 05 A9 00 ac 95<39> 
EB CC 92 Q&caı> 05 AB D 60 AD 29<D2> 80 BE 02 2@ 17<25> 
00 ca 91 E@cBE> @3 4C 9E 95 AP DI<ac> 94 AD 20 @& CD<7a> 
FO 60 20 aB<7a> 29 86 A4 2E AD 18 Bkcan> 02 DB 39 30 En<s2> 
0140:92 AD @0 06 18 65 58 axcse> 28 ®6 ED 21 96 18 79<9D> AD 25 86 85 E2<C6> 
Q14B:E2 AD O1 06 65 39 85 Excsp> 03 38 E9 81 30 18 CD<ss> 85 E3 Bı E2 8D<67> 
0150:A9 0@ 85 E@ A9 98 85 EICEI> @6 10 On ED 22 86 BacFa> 7F C9 40 BO 06<07> 
BISG:AE 05 06 CO EB 20 &@ 92<as> @3 F@ 05 AC 18 98 AE<cH> aC CF 95 C9 @cen> 
Q160:20 92 92 AB @1 &U AB FFecn> @6 CA BE 22 06 AS SacsD> ©9 40 AB AD 26<22> 
@168:CB BI E® 91 EZ CC 02 Bkcıa> 6D 00 &6 OD 25 86 Axar> 8C 26 06 OD 26<78> 
8170:D0 F6 CB B1 €0 91 EZ ASc95> &D @1 06 OD 2a 86 A0<as> 06 AG Q1 60 Ancs6> 
G17E:ED 18 69 28 85 En 9Q @x<ea> 26 CS AD 25 86 18 SrcaE> 26 A9 9B CE BZ<EE> 
BIS0:E6 EI AS EZ 10.69 28 B5<1c> 80 25 86 9@ O5 EE 24<0n> 92 20 17 95 ayccı> 
GIS9:E2 90 02 E& ES CA D@ D&<22> 08 DO EF AD 25 06 18<6n> 60 A2 0m am 21<09> 
@190:60 AB @@ AS SD 91 SE 60<7R> 18 86 ED 25 @& AD 24<C0> 0m 22 ı8 60 Ea<es> 
B1 SO 85 SD 0a Sac70> &9 00 OD 24 @6 EE 25<C4> au 88 D9 Fi 38c36> 
AS 58 85 SE AS 59<84> DO 05 EE 24 86 AD 11<38> ID 1A @S A9 Dacas> 
@LAB:SS SF 60 C9 98 DO 05 Aaccıs> &D 27 86 EE 92 86 An<a2> A991 9D IC @xcDc> 
8120:29 93 C9 7D D® BE 2@ B2<ca> 36 ED 11 @& 28 23 9%51> 21 80 60 00 mac9s> 
Listing 1. Die »Windows«-Betriebssystemerweiterung. Bitte mit AMPEL eingeben. \**"9° !#1@ Bytes 
32000 DATA.104,104,141,85,3,104,141,84,3 320355 OPEN #1,4,8,"D:WINDOS.OBJ":FOR F=1 
»104,141,89,3,104,141,88,5,169,7,162,16, TO &:GET #1,HI:NEXT F <CC> 
32,86,228,96 <NI> 32904® HI=USR (ADR (BLOAD$) „37120, 1400) <aL> 
32@1@ RESTORE 320@9:DIM BLOADS (25) <us> 32045 CLOSE #1 <RM> 
32020 FOR F=1 TO 25:READ HI:BLOADS(F,F)= 3285® HI=USR (37120) A <Tz> 
CHRS (HI) :NEXT F <un> 32060 END <KS> 
32058 POKE 1@6,144:GRAPHICS @ <BU> 


Listing 2. Basic-Lader 


»Windows« (bitte mit dem Atari-Prüfsummer eingeben) 


5 REM BEISP2.BAS 
10 REM 


2@ REM Zuerst "WINDINIT.BAS" laufen lass 


en 
30 REM 
100 REM sun 23 wu. 


150 ? "{ESC CTL <}":SETCOLOR 2,5,4:SETCO 
LOR 1,8,14:SETCOLOR 4,5,0 
2900 DIM N$(4@) „1#(20) „NA# (20) „PU(2) ‚Aust 


1) ,X(2) ,Y(2) ,CF(2) 
210 N$="_":N5(40) 
220 x(1 (2)=18; 
230 CFt1)=B:CF(2)=@ 


529 GOSUB 1208:REM >>> ANFANG <<< 


5a2 FOR N=1 TO 2 


ArzNECZDI=NEL) 
:PU(DI=B:PU(2I=O 


:LY=7:POSITION X (N) „N*2-1:G0SUB 


530 IF CFiN)=1 THEN GOSUB 2190:50T0 550 


540 GOSUB 2008 


550 GOSUB 16@0:REM >>> KARTE ZIEHEN <<< 


553 GOSUR 1808 


<Ia> 
<J0> 


<KL> 
<JQ> 
<IwW> 


<Tıv> 


<cc> 
<85> 
<IT> 
<vc> 
<Dv> 
<NU> 


<Mc> 
<aa> 
<EG> 
<RF> 
<UR> 
<UX> 


555 GOSUB 11900:1LX=22:LY=1:POSITION 8,8:G6 


OSUB 2300: 
NICTL Y3."52 INPUT #3; 18 
557 CLOSE #5 


#5; "“Weiter“mit={CTL_YIRETUR 


<60> 
<NE> 


560 IF GEW>@ THEN GOSUB 1700:G0T0 S582:RE 


M >>> GEWONNEN <<< 

57@ NEXT N 

588 60T0 582 

997 REM 

998 REM UP FRAGE 

999 REM 

1000 ? #3; "Jetzt.bist“Dusdran,":? 
N®2@-19,N#2@) 3; 
"Willst„Duseine.Karteziet 


1897 REM 
18978 REM UP PUNKTEANZEIGE 
1899 REM 
11908 LX=3@:LY=1@:POSITION 4,10:60SUB 230 


Listing 3. Ein einfaches Spiel mit Windows 


RIENEL 


hend 


<IX> 
<IH> 
<om> 
<CD> 
SHS> 
<c9> 


<KS> 


<KB> 
<07> 
<VB> 
<LE> 
<I> 
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1730 ? #337 #3; "Naechstes-Spiel-mit={CTL 

_YIRETURNSETL Y3." <LO> 

1748 INFUT #35 Is: PUL1)=BeFU(2)=B:GEW-B:C 
? #3;N8 (21,40); LOSE #3 <ZR> 
1158 ? #3:? # <HC> 1758 RETURN <PW> 
1148 RETURN <PH> 1797 REM <VP> 
1197 REM <vD> 1798 REM PRUEFEN, OB SPIEL ZU ENDE <ID> 
1198 REM UP ANFANG <Ta> 1799 REM SVX> 
1199 REM <uL> 1808 IF PUCL)<21 OR PU(2)<21 OR GEW>@ TH 
120@ LX=32:LY=1@:FOSITION 3,0:60SUR 2300 <ZU> EN RETURN <EE> 
1210 7 #3:7? MSgTannan nen Inne <CQZ> 1810 IF PLUKC1)>PUCZ) THEN GEW=1:RETURN  <ZH> 
12350 ? #3:? #3; "Wiesheisst=derserste.spi 1820 IF FUtZ)>PUC1) THEN GEW=Z:RETURN  <AI> 
elera?": 3 I$:N$ (1,20) =1# <A 1839 GEW=S: RETURN <Aw> 
1235 IF I$="" THEN N&(1,5)="ATARL"zCF CL) 1997 REM <YT> 
=1 <cr> 1998 REM UP SPIELERZUG <DS> 
1248 ? #3:? #3; "Wiesheisstader“zweitessp 1999 REM <WB> 
ieler“?": INPUT #3; I#:N$(21,40)=I$ <6A> 2008 X=15:Y=3: POINT #3,X,V: INPUT #35AWS <GJ> 
1245 IF I#="" THEN N#(21,28)="COMPUTER": 2020 IF ANs="N" THEN KG=@: RETURN <DN> 
CF(2)=1 <ZK> 2030 IF AWS<>"J" THEN 2008 <LY> 
1250 CLOSE #3:RETURN <EO> 2040 KG=1:RETURN <AE> 
1597 REM <uL> 2097 REM SVC> 
1598 REM UP KARTE ZIEHEN <LH> 2098 REM UP COMPUTERZUG <EX> 
1599 REM <uT> 2099 REM <VK> 
1608 IF NOT KG THEN RETURN <PE> 212@ GOSUB 2200 <XY> 
1610 PP=INT (RND(DATI+S <ML> 2118 IF K6=1 THEN ? #35 "J"zRETURN <In> 
1615 PUCN) =PU(NI+PP STK> 2120 ? #3; "N":RETURN <BF> 
162@ ? #5; "Dushast";PP;"“Punkte":? #35" 2197 REM <VvE> 
gezogen." <56> 2198 REM UUP COMPUTERENTSCHEIDUNG <DY> 
1630 IF PU(N) >25 THEN ? #5; "Dushast.verl 2199 REM <um> 
oren!"zBEW=N+ (N=1)- (N=2) <MH> 2208 IF PU(NI<19 THEN KG=1:RETURN <XU> 
1635 IF PUCN)=23 THEN ? #35 "Duxhast.gewo 221® IF PU(N)>2® THEN KG=@: RETURN <Ta> 
nnen!":GEW=N <OH> 222@ IF PUCN+(N=1)-(N=2))<18 THEN KG=@:R 
1648 RETURN <PR> ETURN <vz> 
1697 REM <UN> 2230 KG=1:RETURN <Ar> 
1698 REM UP ENDE <BE> 2297 REM <vB> 
1699 REM <wv> 2298 REM UUP WINDOW OEFFNEN <FA> 
1708 1LX=34:LY=6: POSITION 2,2:60SUB 23598 <UM> 2297 REM <vo> 
1705 IF GEW=3 THEN ? #35 "Unentschieden!" 2300 POKE 1538,LX:POKE 1539,LY:POKE 888, 
:? #3:60T0 1738 <m3> 255:0PEN #2,12,8,"W: "RETURN <YR> 
1718 ? Bravo," ;N$(GEW*28-19 ,GEW#2B) <AK> 
1720 ? #3; "Du.hast“gewonnen." <LM> ing 3. Ein einfaches Spiel mit Windows (Schluß) 


Großes 


Dieses Sonderheft haben wir 
für Sie gemacht, liebe Leser. 
Und damit Sie in Ihren Sonder- 
heften nur solche Themen vor- 
finden, die Sie auch wirklich 
interessieren, brauchen wir Ihre 
Meinung. Schließlich soll ein 
mögliches nächstes Atari-Son- 
derheft noch besser, interes- 
santer und informativer werden. 
Und damit wir wissen, was Sie 
wollen, schicken Sie bitte den 
ausgefüllten Fragebogen an 
uns zurück. 

Natürlich gibt es auch etwas zu 
gewinnen. Unter allen Einsen- 
dungen verlosen wir viele inter- 
essante Preise. 


Um an der Verlosung teilzunehmen, müs- 
sen Sie den folgenden Fragebogen aus- 
füllen, ihn in ein Kuvert stecken und an 
unsere Adresse schicken: 
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© 2 Atari 1050-Diskettenlaufwerke, gestiftet von Atari 

© 1 Atari 1029-Drucker, gestiftet von Atari 

® 10 Gutscheine über je ein Buch freier Wahl aus 
dem Markt&Technik-Angebot 

© 5 Textverarbeitungs-Programme Atari-Schreiber 
für alle Atari-Computer, gestiftet von Atari 

© 20 T-Shirts im »Happy-Computer«-Look 

Redaktion Happy-Computer, 

Markt& Technik Verlag AG, 


Kennwort: Atari-Sonderheft, 
Hans-Pinsel-Straße 2, 8013 Haar 


Der Rechtsweg ist ausgeschlossen, 
Einsendeschluß ist der 30.April 1986. 


(wb) 


Fragebogen zum Atari-Sonderheft von Happy-Computer 


Wie hat Ihnen dieses Sonderheft insgesamt gefallen? 
OiSehrgut DGut [Mittel [Weniger gut 


Wie fanden Sie die einzelnen Rubriken? 
(zutreffendes bitte ankreuzen) 


‚Sehr 
Interessant interessant uninteressant 
Hardware-Basteleien je] D 
Software-Tests [=] [=] ja} 
Hardware-Tests [=] [m] [=] 
Spiele-Test D je} DO 
Anwendungs-Listings je] jm] je} 
Spiele-Listings ja} jm] [=] 
Tips und Tricks-Listings oO [) [=] 
Turbo-Basic-Interpreter E je] D 
Turbo-Basic-Compiler im} [=] DO 
Turbo-Basic-Teil (allgemein) [m] je} D 


Welche Beiträge haben Ihnen am besten gefallen? 


1. 


O Gar nicht 


Bi 


Was haben Sie in diesem Sonderheft vermißt? 


Wie oft würden Sie sich ein Sonderheft zum Thema Atari 
800XL/130XE kaufen? 


OVierteljährich []Halbjährlich U] Einmal im Jahr 


Welchen Computer besitzen Sie? 
O800XL D130OXE D260ST D1520ST+ 
Ü einen anderen, welchen? 


Haben Sie vor, sich 1986 einen anderen Computer zu kaufen? 
Dja Dnein 


Wenn ja, welchen? 

D260ST 

0520ST+ 

U Amiga 

DI MS-DOS-Computer (z.B. IBM-PC, PC 10) 


Möchten Sie sich einen Atari ST kaufen? 
DO Unein 
Falls nein, warum nicht? 


Falls ja, warum? 


Welche Peripherie besitzen Sie für Ihren Atarl-Computer? 
DO Diskettenlaufwerk, Typ? 


D Kassettenrecorder, Typ? 
OD Druckerinterface, Typ? 


D Drucker, Typ? 
D Monitor 
oSW OoFarbe Typ? 
U Fernsehgerät 
oS/W 0 Farbe 


Welche Peripherie wollen Sie sich 1986 noch kaufen? 
OD Diskettenlaufwerk, Typ? 

DI Kassettenrecorder, Typ? 
D Druckerinterface, Typ? 
DO Drucker, Typ? 


DO Monitor 

OSW OoFarbe Typ? 
OD Fernsehgerät 

OSW © Farbe 


Welches Peripheriegerät würden Sie, falls Sie eines gewinnen, 
bevorzugen? 
D Atari 1050-Diskettenlaufwerk 


D Atari 1029-Drucker 


Welche Computer-Zeitschriften lesen Sie regelmäßig? 


Ich bin damit einverstanden, daß die hier gemachten Angaben elektronisch 
verarbeitet werden. 


Anschrift: 


‚Alter: Jahre 


Mein Atari- 
Computer 


um 


ü 
RI-Privalcomputer 


Zielgruppe: Einsteiger 
und Fortgeschrittene 

Das Buch »Mein Atari- 
Computer« ist als Standard- 
werk für den Einsteiger 
anzusehen. Von den elf Kapi- 
teln widmen sich fünf der 
Hardware. Es wird zunächst 
der Aufbau der älteren 
Modelle (Atari 400 und 800) 
besprochen; im Anhang fin- 
det man noch Erklärungen 
zum 800XL. Allerdings 
schenkt man den älteren 
Computern und Peripherie- 
geräten in diesem Kapitel all- 
zuviel Aufmerksamkeit. Es 
werden teilweise Geräte be- 
schrieben, die nicht mehr im 
Handel sind oder die es in 
Deutschland nie gegeben 
hat. Die neuen Computer 
kommen also zu kurz. Immer- 
hin sind die Anschlüsse der 
Computer beschrieben, da- 
mit man weiß, welche Zu- 
satzhardware sich an wel- 
chen Aus-/Eingang anschlie- 
Ben läßt. 

Es lassen sich aber eine 
Reihe von Parallelen ziehen. 
Beispielsweise unterschei- 
det sich der Umgangmit dem 
alten Atari 810-Laufwerk nur 
in einigen wenigen Details 
vom neuen 1050-Laufwerk. 
Auch der Umgang mit dem 
alten Programmrecorder 
410 entspricht dem mit dem 
1010-Recorder. Man fühlt 
sich als Besitzer eines 
neuen Computer und Peri- 
pheriegerätes also nicht 
unbedingt vernachlässigt. 

Interessiert sich jemand 
für Grafik, dann findet er in 
den Kapiteln »Einführung in 
die Grafikfunktionen des 
Atari-Computers« und »Wei- 
terführende Beschreibung 
der Grafikfunktionen des 
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Atari-Computers« wirklich 
ausführliche Informationen. 
In den beiden Kapiteln wid- 
met sich der Autor auch der 
Player Missile-Programmie- 
rung, mit der bekanntlich 
bewegte Grafik erzeugt wird. 
Damit aber das Beschriebe- 
ne noch verdeutlicht wird, 
hat man einige sehr gut 
dokumentierte Programm- 
beispiele miteingebaut. 
Schließlich läßt sich in der 
Praxis doch so manches 
besser nachvollziehen als 
mit bloßer Theorie. 

Weiterhin beinhaltet das 
Buch auch noch einiges 
über Musik-Programmie- 
rung, Joystickabfrage und 
Paddles, das Diskettenfor- 
mat und wie man sich eine 
eigene Dateiverwaltung auf- 
bauen kann. Auch zu diesen 
Themen gibt es Programm- 
beispiele. 

Das letzte Kapitel wendet 
sich schließlich jedem ein- 
zelnen Basic-Befehl und 
jeder einzelnen Basic- 
Funktion zu. Hier findet man 
auch Informationen zu den 
verschiedenen XIO-Funktio- 
nen, denen im Handbuch 
zum Computer kaum Auf- 
merksamkeit geschenkt 
wird. 

Der Anhang informiert den 
interessierten Leser noch 
über eine Reihe von PEEKs 
und POKEs, die der etwas 
fortgeschrittenere Program- 
mierer unbedingt kennen 
sollte. Auch die Speicherauf- 
teilung der alten sowie der 
neuen Computer erläutert 
ein eigenes Kapitel. 

Das Buch »Mein Atari- 
Computer« ist ein rundum 
gut aufgemachtes und infor- 
matives Buch. Bei der-Arbeit 
stört allerdings sehr, daß 


kein Stichwortverzeichnis 
existiert. Sucht man 
bestimmte Informationen, 


muß man nicht selten das 
Buch von vorne bis hinten 
durchblättern. Es wäre wün- 
schenswert, diesem Buch 
zumindest einige Seiten mit 
einem separaten Stichwort- 
verzeichnis beizulegen. Viel- 
leicht geht dieser Verbesse- 
rungswunsch ja schon bei 
der nächsten Neuauflage in 
Erfüllung. (wb) 


Lon Poole, Martin MeNift, Steven Cook, »Mein. 
Atari-Computere, te-wi Verlag, ca. 470 Selten, 
ISBN 3-921803-18-7, Preis 59 Mark 


Das Atari- 
Programmier- 
handbuch 


Das 
En: ATARI- 


Zielgruppe: Einsteiger 

Wenn Sie noch nie pro- 
grammiert haben, aber einen 
‚Atari-Computer besitzen 
oder kaufen möchten, dann 
bietet sich »Das Atari- 
Programmierhandbuch« für 
den optimalen Einstieg an. 
So beschreiben die ersten 
Kapitel, was ein Programm 
überhaupt ist und wozu es 
dient. Langsam wird man 
dann an sein erstes Pro- 
gramm herangeführt. 

Auch macht das Buch den 
Atari-Besitzer von vornher- 
ein mit der richtigen Pro- 
grammiertechnik vertraut. 
Anhand von Flußdiagram- 
men zeigt die Autorin 
anschaulich den systemati- 
schen, überlegten Aufbau 
eines Programms. Solche 
Diagramme dienen schließ- 
lich auch dazu, Programme 
möglichst optimal zu gestal- 
ten. So spart man sich einige 
Wiederholungen und das 
Programm wird gleichzeitig 
überschaubarer. 

Neben ausführlichen Er- 
klärungen des Atari-Basic- 
Befehlssatzes und Erläute- 
rungen zu den Fehlermel- 
dungen, wird auch die Unter- 
programmtechnik sowie die 
Stringverarbeitung ange- 
sprochen. 

In »Das Atari-Programmier- 
handbuch«e kommen Pro- 
grammbeispiele nicht zu 
kurz. Insgesamt sind es 55. 
Man muß sie aber nicht 
unbedingt abtippen, da man 
sämtliche Programme auch 
auf Diskette beziehen kann. 

(wb) 


Linda M. Schreiber, »Das Atarl-Pro- 
grammierhandbuch«, Markt & Technik, 403 Sei- 
ten, ISBN 3-89090-062-3, Preis 52 Mark 


Das Atari-Buch, 
Band 2 


Zielgruppe: Fortgeschrit- 
tene und Profis 

Es ist naheliegend, daß 
man sich nach dem Kauf 
seines Atari-Computers zu- 
nächst mit der Basic-Pro- 


grammierung beschäf 
Schließlich liegt das Basic 
gleich nach dem Einschalten 
des Computers vor. Hat man 
seinen Computer unter Ba- 
sic aber ausgereizt, steht 
Maschinensprache-Program- 
mierung an. Schließlich ist 
nichts schneller als reine 
Maschinensprache. Hinzu 
kommt, daß sich gewisse 
Funktionen des Atari- 
Computers nur von Maschi- 
nensprache aus realisieren 
lassen. 

Für »Das Atari-Buch, Band 
2« werden zumindest Basic- 
Programmier-Kenntnisse 
vorausgesetzt. Sollten Sie 
sich mit Maschinensprache 
bereits ein wenig beschäftigt 
haben, ist dies auch vorteil- 
haft. Für die Einführung in die 
Maschinensprache-Program- 
mierung sind am Ende des 
Buches ein Editor, ein 
Assembler und ein zugehöri- 
ger Disassembler abge- 
druckt. Somit kann man auch 
ale im Buch aufgeliste- 
ten Maschinenprogramme 

gleich ausprobieren. 

In einem eigenständigen 
Kapitel werden die Interrupt- 
fähigkeiten der Atari-Compu- 
ter erschöpfend behandelt. 
Mit dieser Technik lassen 
sich einige Programmvor- 
gänge unabhängig vom rest- 
lichen Programm ausführen. 
Besonders wichtig ist die 
Interrupttechnik in Spielen. 

Das letzte Kapitel widmet 
sich der Display-List, mit der 
man die Bildschirmausgabe 


beeinflussen kann. Weiter- 
hin wird in diesem Kapitel 
auch waagrechtes und senk- 
rechtes Scrollen bespro- 
chen. 

Wer also mehr aus seinen 
Programmen machen möch- 
te, sollte auf »Das Atari- 
Buch, Band 2« zurückgrei- 
fen. Schließlich steckt im 
‚Atari mehr als nur ein einge- 
bautes Basic. (wb) 


Hans Lorenz Schneider, Rudolf Bichler, »Das 
Atari-Buch, Band 2«, Markt & Technik, 197 Sei- 
ten, ISBN 3-89090-072-0. Preis 32 Mark 


Sprühende Ideen 
mit Atari-Graphik 


Im Anhang finden sich 
noch einige Arbeitsblätter 
zum Entwurf und zur Gestal- 
tung von Bildschirmen. Die- 
se Seiten sollte man sich 
natürlich fotokopieren, um 
diese wirklich sinnvollen Hil- 
fen immer wieder einzuset- 
zen. (wb) 


Tom Rowiey, »Sprühende Ideen mit Atari Gra-, 
hike, te-wi Verlag, 211 Seiten, 
ISBN 3-921803-39-X, Preis 49 Mark 


Atari 600XL/800XL 
Intern 


Zielgruppe: Anfänger 
und Grafikinteressierte 

Mit einer Auflösung von 
320x192 Punkten und bis 
zu 256 gleichzeitig darstell- 
baren Farbschattierungen, 
ist der Atari-Computer kaum 
zu schlagen. Allerdings ist 
die Grafikprogrammierung 
nicht auf Anhieb verständ- 
lich. Vor allem wenn man 
seine Programme mit be- 
wegter Grafik ausschmük- 
ken möchte, wird es kompli- 
ziert. Die Player Missile- 
Grafik, die für Bewegung auf 
dem Bildschirm sorgt, läßt 
‚sich nämlich nur mit entspre- 
chenden Kenntnissen pro- 
grammieren. 

Wer animierte Grafik ein- 
setzen, mehr über die ver- 
schiedenen Grafikmodi des 
‚Atari-Computers wissen, 
eine neue Display-Listerzeu- 
gen und einen neuen Zei- 
chensatz definieren möchte, 
findet zu diesen Themen 
jeweils ein eigenes Kapitel 
vor. Um Ihr neu angeeigne- 
tes Wissen auch gleich zu 
testen, wurden in das Buch 
Fragen eingebaut, die am 
Ende des Buches beantwor- 
tet werden. 


Zielgruppe: Fortgeschrit- 
tene und Profis 

Wenn Sie sich bereits in 
Basic auskennen, sich an- 
schließend der Maschinen- 
sprache zuwenden und 
gleichzeitig natürlich auch 
mehr über die Hardware des 
Atari-Computers wissen 
möchten, dann ist das Buch 
»Atari 600XL/800XL Intern« 
für Sie ein unerläßliches 
Hilfsmittel. Angefangen von 
der Speicherverteilung, bis 
hin zu ausführlichen Erklä- 
rungen der einzelnen Spe- 
zialbausteine des Atari- 
Computers, findet man alles 
Wissenswerte. Ausführlich 
wird jedes einzelne Register, 
jeder wichtige Baustein be- 
sprochen, sei es der Antic 
(zuständig für Grafik), der 
GTIA (Bildausgabe) oder der 
Pokey (zuständig für Tonaus- 
gabe, Tastaturabfrage etc.). 

Im letzten Kapitel ist noch 
der Gesamtspeicherplan der 
Atari-Computer abgedruckt, 
der nochmals alle Adressen 
genau beschreibt. Wer also 
wirklich alles über seinen 
‚Atari wissen möchte, für den 
ist das Buch »Atari 600XL/ 
800XL Intern« ein absolutes 
Muß. (wb) 


Das Atari Profibuch 


s 
< 
H 


Zielgruppe: Fortgeschrit- 
tene und die es werden 
möchten 

Abgesehen von der »et- 
was anderen Einleitung« mit 
viel Humor, verbergen sich 
im »Atari Profibuch« Informa- 
tionen, auf die man zukünftig 
nicht mehr verzichten kann. 
In diesem Buch findet man 
alles über Speicheradres- 
sen, die speziellen Bau- 
steine-und die Besonderhei- 
ten des Atari. 

Vor allem den Besonder- 
heiten der Atari-Computer 
haben sich die Autoren in 
diesem Buch zugewandt. So 
ist ein Hauptaugenmerk auf 
die Funktion des Antic- 
Bausteins und die verschie- 
denen GTIA-Grafikmodi ge- 
richtet. Auch Informationen 
darüber, wie man Bild- 
schirmscrollen realisiert, wie 
man den Display List Inter- 
rupt verändern kann und wie 
Interrupts allgemein anzu- 
sprechen sind, fehlen nicht. 

Wer seinem Atari-Compu- 
ter schon immer mal besser 
klingende Töne entlocken 
wolite, findet zu diesem 
Thema ein eigenständiges 
Assembler-Programm vor. 
Und wen zuletzt noch die 
Anschlüsse der Atari- 
Computer interessieren, 
kann sich am Ende des 
Buches über eine Reihe von 
Bildern freuen, die jeden ein- 
zelnen Anschluß genaue- 
stens erklären. Sogar einen 
Schaltplan des 800XL kann 
das »Atari Profibuch« aufwei- 
sen. Mit diesem Buch wer- 
den einem also alle Tore, 
nicht nur zur Hard,varewelt, 
weit geöffnet. (wb) 


Juan 


Profibuch«, Sybe> 
ISEN 3-88745-505-X, Preis 42 Mark 


6502-Assembler- 
Kurs für Beginner 


Zielgruppe: Fortgeschrit- 
tene # 

Schon das Äußere des 
Buches weicht von der Norm 


ab. Es ist kein starres, 
gebundenes Buch, sondern 
eher als Paperback zu 
bezeichnen. Es bezieht 
seine Angaben auf den As- 
sembler T.EX.AS (= Terminal 
Extended Assembler), wel- 
cher ebenfalls aus dem 
Hause Dripke stammt. 

Das Buch ist sowohl für die 
Theorie als auch für die Pra- 
xis geschrieben, so daß man 
es am besten am Computer 
bearbeitet. Die Assembler- 
befehle werden in kleinen 
Programmen vorgestellt, so 
daß die Wirkung aller 
Befehle sofort ausprobiert 
werden kann. 

Zwischen diesen mehr 
praktisch orientierten Kapi- 
teln sind andere mehr theo- 
retischer Art eingestreut, in 
welchen von Bits und Bytes, 
vom Speicheraufbau oder 
von den verschiedenen 
Adressierungsarten in der 
Assemblersprache gespro- 
chen wird. Sie sind, wie das 
ganze Buch, in einer locke- 
ren, leicht verständlichen 
Sprache geschrieben. Und 
hat man wirklich einmal 
etwas nicht verstanden, so 
kommt am Ende eines jeden 
Kapitels noch einmal eine 
Zusammenfassung, in wel- 
cher das Wichtigste der letz- 
ten Seiten wiederholt wird. 

(Arnd Wängler) 


Andreas Dripke, »6502-Assemblerkurs_ für 
Beginner«, Interface Age Verlag, ISBN 
3-88986-000-1, Preis 29,80 Mark 
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Basic-Schalter 


Möchte man das eingebaute Basic abschalten, 
muß man normalerweise den Atari-Computer 
erneut booten. Die Maschinencode-Routine 
»BSWITCH.COM« kann das genauso gut. 


Is man sich bei Atari dazu entschieden hat, das einge- 

baute Basic durch Drücken der OPTION-Taste nur 

während des Bootens zu desaktivieren, hat man 
einige Anwender nicht gerade glücklich gemacht. Doch die 
Notwendigkeit ständig neu zu booten, besteht nun nicht 
mehr, denn mit der kurzen Maschinensprachroutine 
»BSWITCH.COM« kann man das Basic von DOS aus ein- 
beziehungsweise ausschalten. 

Tippen Sie zunächst das kleine Basic-Programm ab, das 
die benötigte Datei mit dem Namen »BSWITCH.COM« auf der 
Diskette erzeugt. Sie können nun durch einfaches Laden des 
Programms »BSWITCH.COM« das eingebaute Basic ein- 
oder ausschalten. Geben Sie dazu unter DOS 2.5 zunächst 
L ein. Betätigen Sie anschließend die RETURN-Taste und 
laden Sie dann das File »BSWITCH.COM«. War das Basic zu 
diesem Zeitpunkt eingeschaltet, wird es ausgeblendet; war 
es ausgeschaltet, funktioniert das Ganze umgekehrt. 

Wichtiger Hinweis: Basic funktioniert nur dann einwandfrei, 
wenn beim Booten nicht OPTION gedrückt wurde! 

(Julian F. Reschke/wb) 


1008 REM Basic Switch V 1.® <ww> 
1810 REM von Julian F. Reschke <ZB> 
182@ REM (c) Happy Computer <Ev> 
1859 REM <TH> 
1049 OPEN #2,8,0,"D: BSWITCH.COM" <IN> 
1859 PRUEF=@ <ı1s> 
1868 FOR I=1 10 25 <6C> 
1878 READ WERT: PRUEF=PRUEF+WERT <IN> 
1088 PUT #2,WERT:NEXT I <FZ> 
1999 CLOSE #2: IF PRUEF<>23@1 THEN ? "ERR 

OR" <PX> 
1109 END <PR> 
111® DATA.255,255,0,6,18,6,173,248,3,75, 

1,141,248,3,76,116,228,224,2,225,2,0,6 <SD> 


Basic-Listing »BSWITCH« 


1808 3-—------- 
1019 ;Basic Switch V 1.0 
zvon Julian F. Reschke 


183@ z(c) Happy Computer 1985 


1058 ; 

106B RUNAD = SOZED ;Einsprungvektor 
1978 BASICF zQ5SF8 ;Basic-Flag 

1Q8Q WARMSV = $E474 ;Warmstartvektor 
1998 ; 

1100 *= 0600 

1110 ; 

1120 LDA BASICH 

1120 EOR #1 ‚Status "umdrehen 
1140 STA BASICF 

1150 JMP WARMSV zWarmstart machen 
1160 ; 

117@ *= RUNAD 

11989 ; 

1198 „WORD $B6QR ;Einsprungvektor 
1200 ; 

1210 „END 


Quell-Listing »BSWITCH« (MACI65-Assembler) 
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PROGRAMM-STECKBRIEF 
Programmname Basic-Schalter 
Programmtyp Utility 
Programmiersprache Atarı-Basic (Assembler) 
Programmlänge 342 Byte 
für Computer 800 XU130 xE 
Zusätzliche Hardware Diskettenlaufwerk 
Eingabehitfe Prüfsummer 
| Bemerkung Schaltet den Atarl-Basic-Interpreter 

nach Belieben 

ein oder aus 
Leserservice Diskette (BSWITCH.BAS) 


Blitzschnelle 
Zeichen- 
umwandlung 


Die interne Zeichendarstellung unterscheidet 
sich vom normalen Zeichensatz. Eine Maschinen- 
routine liest den Bildschirm und ordnet die gelese- 
nen Zeichen blitzschnell einem String zu. 


Heimcomputer ist, daß, je nach Situation, eineanders- 

artige Kodierung von Zeichen benutzt wird. Bei Atari- 
Computern muß man zwischen zwei verschiedenen Darstel- 
lungen unterscheiden. 

Die ASCII-Darstellung wird für alle standardmäßigen Ein- 
und Ausgaberoutinen des Betriebssystems verwandt. Für 
den Basic-Programmierer bedeutet dies: Alle Basic-Kom- 
mandos wie PRINT, INPUT, LOCATE etc. arbeiten mit dieser 
Zeichendarstellung. 

Daneben gibt es noch die interne Darstellung von Zeichen. 
Diese findet man beispielsweise bei der Reihenfolge der Zei- 
chen in einem Zeichensatz oder bei der Kodierung der Zei- 
chen im Bildschirmspeicher vor. 

Gerade hier setzt das Programm »SCRSTR« an. Häufig gilt 
es, auf dem Bildschirm dargestellte Zeichen in eine normale 
Zeichenkette zu übertragen. Das Betriebssystem stellt zwar 
hierfür eine Funktion zur Verfügung, nämlich den LOCATE- 
Befehl, der aber auch Nachteile hat: Die einzelnen Zeichen 
müssen über eine Schleife von der Bildschirmposition in die 
Zeichenkette übertragen werden. Dies erfordert entspre- 
chend viel Zeit. Solche Verzögerungen sollte man aber bei 
Programmen, die auf Tastatur-Eingaben reagieren, vermei- 
den. 

Die Maschinenspracheroutine »SCRSTR« überträgt genau 
960 Zeichen (40 Zeichen pro Zeile multipliziert mit 24 Zeilen 
ergibt 960 darstellbare Zeichen auf dem Bildschirm in Grafik- 
stufe 0) einesnormalen Textbildschirmsin eine Zeichenkette. 
Diese muß vorher unbedingt auf die 960 Zeichen Länge 
dimensioniert werden. Teile des Bildschirms können an- 
schließend problemlos als Teile dieser Zeichenkette behan- 


E in gemeinsames lästiges Übel der meisten gängigen 


delt werden. Hier ein Beispiel (SCREEN$ ist die benutzte Zei- 
chenkette): Die zweite Bildschirmzeile erhält man mit 
»SCREEN$(41,80)«. Wird das 10. bis 20. Zeichen aus der 4. 
Zeile benötigt, so müssen die Zeichen in SCREEN$ als Posi- 


tion 130 bis einschließlich 140 gelesen werden. 

Noch eine Anmerkung zum Basic-Programm. Nach dem 
Eintippen speichern Sie das Programm zunächst ab und 
geben RUN ein. Falls die Daten für die Maschinensprache- 
routine fehlerhaft sind, erfolgt eine entsprechende Meldung. 
Ansonsten wird als Demonstration das Programm geLISTet 
und in die Zeichenkette SCREEN$ übertragen, die daraufhin 
auf dem Bildschirm ausgegeben wird. 

(Julian F. Reschke/wb) 


PROGRAMM-STECKBRIEF 
Screen to String 


Programmname 
Programmtyp 
Programmiersprache 
Programmlänge 

für Computer ‚800 XL/130 XE 
zusätzliche Hardware Diskettenlaufwerk 


Eingabehilfe Prüfsummer 


Basic (Assembler) 
869 Byte 


1008 REM ————— <WwX> 
191® REM Screen to String V 1-8 <zU> 
1820 REM von Julian F. Reschke <ZE> 
105 REM (c) Happy Computer 1985 <FV> 
1848 REN -——— ———————- <xI> 
1059 REM <TN> 
1068 REM String fuer Bildinhalt <KB> 
1078 = SCREENS (96) :SCREENS(I6@)="."  <VE> 
1032 REM Bild fuellen <vw> 
1078 FOKE 82,@:LIST <WT> 
" 1188 REM Routine definieren <WwY> 
111@ DIM SCRSTR$ (91) :PRUEF=® <LE> 
112@ FOR I=1 TO 91 <ıX> 
115® READ WERTZSCRSTRF(T,TI=CHRE(WERT)  <LB> 
1148 PRUEF=PRUEF+WERT:NEXT I <PrA> 


115@ IF PRUEF<>12436 THEN ? "Fehler!":EN 
D <yv> 
1162 DATA-104,104,133,215,104,133,214,16 
5,88,133,212,165,89,133,213,24,165,88,1® 
5,192,135,216,165,89, 185 

117@ DATA-3,133,217,160,8,162,8,177,212, 
16,2,162,255,41,127,201,64,16,5,24,105,3 
2,208,9,201,96,16,5,56,233 

1189 DATAA64,16,0,224,255,208,2,73,128,1 
45,214,250,212,208,2,230,213,230,214,208 
»2,250,215,165,212,197 

119@ DATA216,208,200,165,213,197,217,28 
8,194,96 

1200 REM 

1218 REM Routine aufrufen 

122@ WERT=USR (ADR (SCRSTRE) „ADR(SCREEN$)) <AC> 


Umwandlung von interner Darstellung 123@ REM SCREENF ausgeben <KT> 
in normalen Zeichensatz 124® PRINT SCREENS <TH> 
EEREEBSTEENS] Basic-Programm zu »SCRSTR« 
—— 
IR EVEN nenn ein nden nnn ann 1348 LDA (FRB) ,Y 
ıvı0 an to String V 1.0 1358 BPLONICHT_INVERS 
1828 ;von Julian F. Reschke 15608 LDX #$FF 
103@ ;(c) Happy Computer 1985 137@ NICHT_INVERS 
19040 ; 1588 AND #$7F 
1850 ; 1398 CMP #64 
19062 SAVMSC = +58 ;Vektor auf Anfangs | 1498 BPL GR_64 
adresse des Bildspeichers 1418 cLc 
1078 FRO = *D4 1428 ADC #32 
10882 DEST = $D6& ;Zeiger auf String 1450 BNE FERTIG 
199@ ENDE = *D8 ;Zeiger auf Ende de | 1448 GR_64 CMP #96 
s Bildes 1458 BFL FERTIG 
1190 ; 1468 SEC 
1118 $0600 ;Programm ist versc | 1478 SEC #64 
hiebbar 1488 BPL FERTIG 
1120 ; 1490 FERTIG 
1158 FLA ;Anzahl der Faramet | 15908 CPX #SFF ;Invers gewesen? 
er 1518 BNE WAR_NICHT 
1148 PLA zAnfangsadresse des | 1528 EOR #580 ;Invertieren 
Strings 1558 WAR_NICHT 
115@ STA DEST+1 1548 STA (DEST)I,Y 
1168 FLA 1558 INC FRO 
1178 STA DEST 1568 ENE KEIN_CARRY 
1188 ;Adr. des Bildsp. holen 1578 INC FRO+1 
1198 LDA SAVMSC 1588 KEIN_CARRY 
1200 STA FRO 1598 INC DEST 
1210 LDA SAVMSC+I 1688 BNE KEIN_CARRY2 
1220 STA FRO+L 1618 INC DEST+1 
125@ ;Ende des Bildsp. berechnen 1628 KEIN_CARRY2 
1240 ELC 1638 LDA FR@ ;Ende? 
1250 LDA SAVMSC 1648 CHF ENDE 
1268 ADC # <968 1858 BNE CONVERT 
1278 STA ENDE 1668 LDA FRO+1 
1280 LDA SAVMSC+I 1678 CMP ENDE+1 
1298 ADC # >968 1688 BNE CONVERT 
1308 STA ENDE+1 1698 ;das war's 
151@ ;Hauptschleife 1728 RTS 
132@ CONVERT LDY #8 1718 ; Quell-Listing zu »SCRSTR« 
1358 LDX #2 1720 „END (MACI6S-Assembler) 
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Bildschirmausschnitt 
schnell gelöscht 


Erfolgen häufig wechselnde Bildschirmausgaben, 
sollten bestimmte Ausschnitte des Monitors auch 
gleich wieder frei sein. 


anchmal ist es ganz nützlich, wenn man bestimmte 
M Bildschirmbereiche schnell löschen kann. Zwar ist 
dies durchaus von Basic aus realisierbar, allerdings 
etwas langsam. Schneller geht es in Maschinensprache. Die 
kurze Routine »Bildloesch« läßt ein beliebig großes Feld auf 
dem Bildschirm im Bruchteil einer Sekunde verschwinden. 

Die Maschinen-Unterroutine wird durch die Programm- 
zeilen 1000 bis 1120 in den Speicherbereich ab 1536 ge- 
POKEI. Hierbei handelt es sich um die Page 6, die besonders 
für kurze Maschinenroutinen geeignet ist. Der Aufruf des 
Programms erfolgt mit »X=USR(1536,SC-1+DS,ZEI- 
LEN,SPALTEN)«. 

Dabei enthält SC die Bildschirmstart-Adresse. Von Basic 
aus läßt sich dieser Wert auch mit den Adressen 88 und 89 
ermitteln. SD stellt die absolute Bildschirmposition dar. Sie 
wird mit Zeile x40+Spalte errechnet. ZEILEN gibt die Anzahl 
der Zeilen und SPALTEN die Anzahl der Spalten an, die das 
zu löschende Feld umfassen soll. 


PROGRAMM-STECKBRIEF 
Programmname Bildioesch 
Programmtyp Utility 
Programmiersprache Maschinensprache 
Programmlänge 690 Byte 
für Computer 800 XU130 XE 
zusätzliche Hardware keine 
Eingabehife Prüfsummer 
Bemerkung löscht Teile des Bildschirms 
Leserservice Diskette (BLOESCH.BAS) 


28 REN BER auraur Enrocr 
m 


99 GRAPHICS @:LIST 

198 GOSUB 1ae6 

110 SCZPEEK (883 +256*PEEK (89) 
128 ZEHEZIG:SPALTESS 


E 
RZYSRLISIS, SC-1*D5,190,263 
149 G0T0 148 


EaD D:POKE a,D 
ATEN-FEHLER 


‚194,133,176,16 

45,176,136,283, 
zS; 195,48,133 
‚165,177.1805,0,133,177,2e 


Hier ist bereits ein Teil des Bildschirms gelöscht 
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In der vorliegenden Form funktioniert die Routine »Bild- 
loesch« nur in Grafikstufe 0. Weiterhin noch in den Grafikstu- 
fen, die 40 Byte pro Zeile in Anspruch nehmen. Ansonsten 
muß der vorletzte Wert in Zeile 1110 entsprechend angepaßt 
werden. Soll das Programm beispielsweise in Grafikstufe 1 
verwendet werden, muß hier der Wert 20 anstatt 40 stehen. 


(Wolfgang Czerny/wb) 
1® REM LOESCHEN VON BILDTEILEN <65> 
2@ REM DER AUFRUF ERFOGT MIT <om> 
3@ REM X=USR (1536,SC,ZEILEN,SPALTEN) <IK> 
40 REM ** VON WOLFGANG CZERNY <WO> 
98 GRAPHICS @:LIST <HS> 
128 GOSUB 1908 <a1> 
11@ SC=PEEK (88) +256#PEEK (89) <FS> 
12® ZEILE=18:SPALTE=S <S0> 
125 DS-ZEILE*4@+SPALTE <EC> 
130 X=USR (1536,SC-1+DS, 10,20) <Ya> 
148 G0TO 148 <NG> 
1000 REM UNTERPROGRAMM NACH 1536 <WW> 
1810 S-@:RESTORE 1188 <Ox> 
1920 FOR A=1536 TO 1575:READ D:POKE A,Dr 
S=S5+D:NEXT A <Lo> 
1950 IF S<>5S68 THEN ? "DATEN-FEHLER!":S 
Top <WZ> 
1990 RETURN <PU> 
1188 DATA-104,104,133,177,104,133,176,1 
4,104,170,184,184,133,178 <Lz> 
1110 DATA.164,178,169,8,145,176,136,208, 
251,24,165,176,105,48,1335 <Ka> 
1128 DATA.176,165,177,105,0,133,177,2@2, 
208,231,96 <as> 


Basic-Listing zu »Bildloesch« 


3#### Loeschen einzelner 
@11® ;=*#** Bildausschnitte Gr.@ 
@12@ ;xene« X=USR(1536,SCPOS,Y,X) 


2130 *= 30600 

2148 PLA 

2158 PLA ;SCPOS NACH 
2168 STA #51 ;SOOBO UND 
2178 PLA ;+0@B1 

2188 STA +58 

2198 PLA ;ZEILEN IN 
22a PLA 3; X=REG. 
a218 TAX 

2220 PLA ;SPALTEN 
a23@ PLA ;NACH $B2 
2248 STA $B2 

@25@ Li LDY $B2 ;$B2-YREG. 
2268 LDA #0 ;LEERZEICHEN 
0280 L2 STA (458) ,Y ;SPEICHERN 
0298 DEY ZEILE 

2308 BNE L2 ;ZU ENDE? 
2318 CLc 

@328 LDA $BO ;ADDIERE 
2330 ADC #528 +40 SPLATEN 
2348 STA $Ba ;ZU SCPOS 
2358 LDA $B1 

2368 ADC #508 

370 STA $B1 

2388 DEX zALLE ZEILEN 
2370 BNE Li ;FERTIG? 
2400 RTS ;RETURN 


Quell-Listing zu »Bildioesch« (MACI/65) 


le. 


Daten schnell 
zur Hand 


Bilder, Daten und Variablen lassen sich mit »Turbo 
IO« blitzschnell von Diskette laden. 


s ist allgemein bekannt, daß im Betriebssystem des 
E ‚Atari-Computers sämtliche wichtigen Routinen für 
Ein- und Ausgaben bereits enthalten sind. Unter Basic 
ist die Auswahl allerdings beschränkt: Man kann die Befehle 
GET und PUT benutzen, die allerdings immer nur ein einzel- 
nes Zeichen lesen beziehungsweise ausgeben. Eine Alter- 
native stellen die Befehle PRINT und INPUT dar. Allerdings 
kann man mit diesen Befehlen nur maximal 125 Zeichen auf 
einen Massenspeicher schreiben und lesen. 

Die Funktionen der CIO heißen nun »GET CHARACTERS« 
und »PUT CHARACTERS«. Sie sind zwar als die Befehle 
BGET und BPUT in Basic XL, Basic XE undim Turbo-Basic XL 
definiert, im Atari-Basic fehlen sie aber. Daher soll hier 
gezeigt werden, wie man sie über eine Maschinensprachun- 
terroutine unter Atari-Basic ansprechen oder simulieren 
kann. 

Für Ein- und Ausgaben stehen auf dem Atari acht »Kanäle« 
(O bis 7) zur Verfügung. Zu jedem dieser Kanäle gibt es einen 
sogenannten IOCB (Input/Output-Control-Block). Für uns 
sind hier allerdings nur drei Register interessant. 

ICCOM: Über dieses Register gibt man die Nummer des 
auszuführenden Befehls an. (Beispiel: »7« bedeutet »PUT 
CHARACTERSs, »11« bedeutet »GET CHARACTERS«.). Als 
nächstes interessiert uns die Zwei-Byte-Variable ICBADR, 
über die die Anfangsadresse des zu lesenden beziehungs- 
weise zu Schreibenden Speicherbereiches festgelegt wird. 
Zuletzt folgt noch ICBLEN. Hier gibt man die Anzahl der zu 
übertragenden Zeichen an. 

Bevor man die Schnelladeroutine anspricht, muß ein Kanal 
bereits geöffnet sein. Jetzt folgt also nur noch der Sprung 
nach CIOV ($E456), und die gewünschte Funktion wird aus- 
geführt. Der Statuscode der Operation kann übrigens über 
das Y-Register abgefragt werden. Wir übertragen den Wertin 
die Variable FRO ($D4) in Seite O. Über die USR-Routinen 
können dann die Ergebnisse an das Basic-Programm zurück- 
gegeben werden. 

Falls nach RUN die Meldung »Fehler« ausgegeben wird, 
haben Sie einen Wert in den DATA-Zeilen falsch eingegeben. 
Korrigieren Sie in diesem Fall bitte das Programm. 

Natürlich lassen sich auch Inhalte von Zeichenketten oder 
Zeichensätzen laden und speichern. Hier sind der Phantasie 
keine Grenzen gesetzt. 

(Julian F. Reschke/wb) 


PROGRAMM-STECKBRIEF 
Programmname Turbo IO 
Programmtyp Unity =] 
Programmiersprache Alari-Basic (Assembler) 
Programmlänge 1146 Byte 3 
für Computer “| 800 xur1a0 xE 
zusätzliche Hardware | Disketteniaufwerk 
Eingabehife Prüfsummer 
Bemerkung Schnelles Laden und Speichern von 
Daten 
Leserservice "Toikeite (TURBOIO.BAS) 


„104,157 


1148 REM 


1138 DATA-3,184,157,73,5 
+86,228,132,212,169,0,133,213,96 


1000 REM —— = 
1810 REM Turbo-1/0 v1.0 

1820 REM von Julian F. Reschke 

1050 REM (c) Happy Computer 1985 
1048 REM —  —— 
1858 DIM TURROF(S?) 

1060 FRUEF=® 

1878 FOR I=1 TO 37 

108@ READ WERT: TURBOF(I,L)=CHRE (WERT) 
1899 FRUEF=PRUEF+WERT 

1198 NEXT I 

111@ IF PRUEF<>3595 THEN ? "Fehler!"zEND 
1120 DATA-194 


194,104,18,18,10,10,17@,1® 


97,3,184,157,68 
184,157,72,3,32 


1158 
1168 
1178 
1188 
1198 
1200 
1218 
1228 


REM Zur Demonstration: 


GRAPHICS 24:SETCOLOR 2,9,@:COLOR 1 


FOR I=® TO 319 STEPS 
PLOT I,8:DRAWTO 319-1,191 
NEXT I 

FOR I=@ TO 191 STEP 3 
PLOT @,I:DRAWTO 319,191-I 
NEXT I 


1238 
1248 REM 
1258 REM 
ER<BN 

126@ REM 
1270 REM 


REM 


Laenge: 
Befehl: 


1298 Q=USR (ADR(TUREO$) , 
*PEEK (89) ‚768@) 

ELISE #1 

REM Bild loeschen 


Bild abspeichern 
Anfangsadresse: 


FEEK (88) +256*PE 


192*40=7680 
Schreiben=11 
1288 OPEN #1,8,8,"D: TEST.FIC" 


1,11, PEEK (88) +256 


SRAPHICS 24:SETCOLOR 2,90,8 
Befehlscode 7 
EST.PIC" 

Q=USR (ADR (TURBOS) „1,7,PEEK (88) +256%* 


<WX> 
<FB> 
<ZE> 
<FV> 
<XI> 
<JE> 
<Iv> 
<LA> 
<FX> 
<YH> 
<ER> 


<ma> 
<xv> 


<KD> 
<TM> 
<EY> 
<AH> 
<MmD> 
<LC> 
<FS> 
<HU> 
<PD> 
<ez> 
<TL> 
<81> 


<Ur> 
<Lm> 
<IC> 
<om> 


<MB> 
<MP> 
<DL> 
<TP> 
<NP> 
NY> 


PEEK (89) „768@) :CLOSE #1 <XU> 
1368 GOTO 1368 <RW> 
Listing 1. »Turbo IO« als Basic-Lader 

1008 ;——-—-. — 

181@ ;Turbo-1/0 Vi. 

1820 ;von Julian F. Reschke 

1038 ;(c) Happy Computer 

1000 —— 

1058 ; 

1069 ;USR= (ADR (TURBO) „KANAL, KOMMANDO „AD 

RESSE „LAENGE) 

1070 ; 

1000 FrO = = 

1098 ICCoM = 0542 

1108 ICBADR = 50344 

1118 ICRLEN = 80548 

1120 CIOV = 12456 

1138 ; 

1188 “= 20008 

1158 ; 

1168 PLA Anzahl der Faramet 

er 

1178 PLA 

1180 PLA ;Kanalnummer 

1190 ASL A j#16 

1208 Asa 

1218 ASL A 

1220 BSL A 

1238 Tax 

1248 PLA 

1258 PLA ;Kommandonummer 

1260 STA ICCOM,x 

1270 PLA ;Adrasse 

12808 STA ICBADR-1,X 

1298 PLA 

1308 STA ICBADR,x 

ısı2 PLA ;Laenge 

1328 STA ICBLEN+1,X 

1332 PLA 

1348 STA ICBLEN,x 

1358 JSR CIOV " zab in's 05 

1768 STY Fr@ ;Fehlercode 

1378 LDa #8 

1398 STA Fro+1 

139@ RTS 

1200 ; 

1418 „END 


Listing 2. Quelltext zu »Turbo IO« (MAC/65-Assembler) 
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Wortumbruch 
perfekt 


Ohne Rücksicht auf Verluste - sprich Trennregeln 
- werden unter Basic Worte einfach »zerrissen«. 
Mit der kurzen Routine »Wordwrap« passiert das 
nicht mehr. 


erschon einmal versucht hat, ein Textadventure in 
W:= zu schreiben, kennt das Problem: Man kann 
zwar das Spiel auf dem Bildschirm verfolgen, aber 
einige Wörter werden am rechten Rand einfach »auseinan- 
dergerissen«. Diesem Manko setzt nun unsere kurze Routine 
»Wordwrap« ein Ende - und das, ohne beim Programmieren 
lange »herumzutüfteln«. Die kurze Maschinenroutine läuft auf 
allen XL- und XE-Modellen. Der auszugebende Text muß zu- 
nächst einmal in einem maximal 255 Zeichen langen String 
stehen. Ein String mit dem Namen TEXT$ soll nun auf dem 
Bildschirm dargestellt werden. Der Aufruf der »Wordwrap«- 
Routine erfolgt dann mit: »X=USR(Adresse,ADR(TEXT$), 
LEN(TEXT$))«. Der Wert »Adresse« bezieht sich dabei auf die 
Anfangsadresse der »Wordwrap«-Routine im Speicher (sie 
wird in einem String abgelegt). 

Weiterhin kann man noch den rechten Rand mit »POKE 
83,X« und den linken Rand mit »POKE 82,X« festlegen. Aller- 
dings darf eine Zeile dann nicht kürzer als das längste ver- 
wendete Wort sein. (Bastian Robin/wb) 


PROGRAMM-STECKBRIEF 


Programmname Wortumbruch 
Programmtyp Utility 2 
| Programmiersprache Maschinensprache = 
Programmlänge 1701 Byte = 
für Computer 800 XU130 XE 
zusätzliche Hardware "keine zul 
Eingabehilfe | Prütsummer u] 
Bemerkung Bei Textausgabe auf dem Bildschirm 
immer zusammenhängende Worte in 
jeder Zeile. 
Leserservice Diskette (WORDWRAPBAS) 


Eingang einer 
inks neben d 
ch Westen; 
idert aus und wird 
grashalmen verdeckt 
wunschene Tal z 
Ssten srhebt si 
tuege! der an die 
- Ausserdem dringen 
eioerz 
Tden 


21s haetten 
Ras nun? 


Hier sind die Texte am rechten Rand zerstückelt. Es fällt 
einem schwer, den Text zu lesen, da man am Ende einer Zeile 
den Rest des Wortes in der nächsten Zeile suchen muß. 


52 REM een <CIE> 
51 REM = Demo Programm fuer den = <RD> 
52 REM * Wordprozessor. Eingabeteil # _<TT> 
53 REM en <CIID> 
188 DIM T$(255) <EE> 
195 OPEN #1,12,2," <BZ> 
186 POKE 62,1@:PGKE 83,30 <UR> 
11@ RESTORE :? "<ESC CTL <3":POSITION 5, 

:? "A) Textzohne«RB«Wordprozessor ":POSI 
TION 5,19:? "B) -Text“mit«RBxWordprozesso 
= <zw> 
120 GET #1,A: IF A=66 THEN 200 <EK> 
13@ IF A<>65 THEN 128 <EL> 
14@ ? "ZESC CTL <}":? FOR W=1 TO 9 <IH> 
15@ READ T$:? T$;:NEXT W <cW> 
169 ? :? "(ESC CTL =PRETURN";=SINPUT TS:G 
070 118 <KM> 
200 ? "tESC CTL <}":? :FOR W=1 TO 9 <1A> 
218 READ T£:60SUB 18808:NEXT W <XS> 
228 60TO 168 <NZ> 
I9B REM nn (MUD 
991 REM * Das folgende 6582 Unter- * <WV> 
992 REM = programm druckt den Text- * <oE> 
993 REM * string ohne Zerreissen * <SY> 
9974 REM * von Woertern Zeile fuer ”* <SK> 
995 REM * Zeile auf den Bildschirm. * <RZ> 
996 REM * Laenge und Adresse des * <DV> 
997 REM * Strings werden an das * <va> 
998 REM * Unterprogramm uebergeben. * <IXx> 
999. REM een <NV> 
1089 A=ADR(T$):L=LEN(TE) <HE> 
1042 X=USR (ADRC"hh{CTL EILHICTL est 
ETL EIMILCTL AICCTL MpLCTL BIATCTL „ItC 
TL_DYNIKI-P{CTL M)-FgENSNDNp+Pm" EST CTL 

>IHHDMBICTL FIIKIMPEICTL IILCTL XIeUESt 
ETL PILCTL HI-GD-SgFNSNDMPBICTL EIIKICTL 
XILCIL_PIDILCTL „ICCETL Mp£CTL BICCTL .? 

FLYER <BI> 
1858 RETURN <PI> 
1999 REM nenn <RP> 
1991 REM «+  Data-Zeilen fuer *  <6U> 
1992 REM « Adventure — Text *..<69> 
1993 REM menu <CSB> 
2000 DATA.Dusstehstam.Eingang.einer.gew 
altigen.Hoehle. «Linksaneben_dir-fuehrtze 
in«Pfadanach-Westen;.er«sieht <NW> 
2@1@ DATA.,“ziemlich.verwildertzaus-und« 
wird«vonagewaltigen«Grashalmen.verdeckt. 
“Er“scheint“ins.verwunschene.Tal <DW> 
2028 DATA. „“zusfuehren. „Richtung«0Osten.e 
rhebt=sich-ein.gewaltiger Huegel-der an. 
die«Hoehle.angrenzt. „Ausserdem <KA> 
2030 DATA.,.dringensausıder .Hoehlexploet 
zlich«mer kwuerdige.Laute; sie-werdensimm 
er „lauter undes.hat.den <EZ> 
2848 DATA. „“Anschein.als.haettensie.Die 
haentdeckt... .“nlasınun? <HY> 


Listing zu »Wordwrap« 


ang einer 
®. Links neben 
ad nach Nesten; er 
verwildert aus 
gen Grashalmen 
eint ıns 
Tal zu fuehren.. 
n erhebt sich ein 
gel der an die 
t. Ausserdem drs 
proetziich 
e; se werden 


Mit der Routine »Wordwrap« werden Worte am rechten Rand 
nicht abgeschnitten. Man kann den Text flüssig lesen. Neben- 
bei wirkt diese Darstellung auch viel professioneller. 
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Seitensprung 
ins Betriebssystem 


Einige brauchbare Betriebssy- 
stem-Routinen lassen sich auch 
von Basic aus nutzen. Wir zeigen 
Ihnen wie. 


er Atari-Computer enthält ins- 
D gesamt 24 KByte ROM, von 

denen das Basic genau ein Drit- 
tel, also 8 KByte einnimmt. Den ande- 
ren Teil beansprucht das Betriebs- 
systen. 

Dieses enthält alle wichtigen Unter- 
programme, die der Computer schon 
nach dem Einschalten benötigt. So ist 
beispielsweise Basic zu aktivieren, sind 
Peripheriegeräte anzusteuern und ähn- 
liches mehr. Das Basic selbst verwen- 
det ständig Routinen des Betriebssy- 
stems - dies ist auch der Grund dafür, 
warum im Basic-Interpreter so viele 
Befehle zur Verfügung stehen. Es ist 
beachtlich, daß dafür nur 8 KByte ROM 
genügen. 

Nichts, was mit Ein- und Ausgaben zu 
tun hat, wie beispielsweise die Befehle 
PRINT, GRAPHICS, INPUT oder OPEN 
erledigt das Basic selbst. Es spielen 
dabei immer Unterprogramme des Be- 
triebssystems mit. 

Da es die Atari-Computer bereits seit 
etwa sechs Jahren gibt und auch ver- 
schiedene Versionen (400/800/600XL/ 
800XU/130XE) existieren, wurde das 
Betriebssystem mehrfach geändert. 
Wie soll man nun wissen, an welcher 
Stelle ein bestimmtes Unterprogramm 
zu finden ist? 

‚Atari hat zum Zeitpunkt der Entwick- 
lung des Betriebssystems vorausge- 
plant. So wurde dem Atari-Computer 
eine sogenannte »Sprungleiste« mit auf 
den Weg gegeben. Das bedeutet, daß 
man Unterprogramme nicht an ihrer 
eigentlichen Position im Speicher auf- 
ruft, sondern an einer festen Stelle in 
einer Tabelle von Einsprungvektoren, 
die sich garantiert nicht ändert. Ein Bei- 
spiel: Ob auf dem Atari 400 oder dem 
Atari 130 XE, mit einem Sprung nach 
Adresse $E477 (siehe Tabelle) wird ein 
Kaltstart ausgeführt. Bei $E477 selbst 
steht nur ein Sprungbefehl zur eigentli- 
chen Kaltstart-Routine. Wo sich diese 
befindet, muß der Programmierer nicht 
unbedingt wissen. 

Dieser Aufbau hat noch einen großen 
Vorteil: Wer sich nämlich ein anderes 
Betriebssystem-ROM in seinen Com- 
puter einbauen läßt oder sich ein modifi- 
ziertes Betriebssystem in den RAM- 


Bereich von $C000 bis $FFFF lädt, 
kann davon ausgehen, daß alle Pro- 
gramme, die sich an die Sprungtabelle 
halten, auch auf Ihrer Betriebssystem- 
version laufen. So kann man mit einem 
veränderten Betriebssystem beispiels- 
weise einen RAM-Disk-Treiber für den 
130 XE einbauen, der dann nicht nur 
unter DOS 2.5, sondern mit allen Pro- 
grammen mit Diskettenzugriff funktio- 
niert, Ein solcher Treiber für den zusätz- 
lichen Speicher ist in verschiedenen 
Spielen bereits integriert. 

Betrachten wir die Tabelle der Ein- 
sprungadressen, die auf den ersten 
Blick ziemlich kurz aussieht. Dies liegt 
ausschließlich daran, daß einige der 
Routinen fast universell einsetzbar 
sind. Die Sprungleiste beginnt bei der 
Adresse 58448 ($E450), und jede 
Einsprungstelle belegt natürlich 3 Byte 
(nämlich 1 Byte für einen Maschinen- 
sprache-»JMP« (Sprungbefehl) und 2 
Byte für die Adresse). Jede Einsprung- 
adresse hat eine feste Bezeichnung, 
die von Atari in den entsprechenden 
technischen Dokumentationen vorge- 
geben wurde. Ideal wäre es, wenn sich 
jeder an diese Benennungen halten 
würde, Dann wäre eine einheitliche 
Namensgebung gewährleistet und 
andere Programmierer könnten sich 
schneller in fremde Programme hinein- 
denken. Jeder Name eines Einsprungs 
hat als letzten Buchstaben ein »v«, als 
Erinnerung daran, daß es sich janur um 
einen Vektor handelt, und nicht etwa um 
die tatsächliche Adresse der Routine im 
Betriebssystem-ROM. 


Fünf Sprünge in die Tiefe 


Der zweite Teil der Liste enthält fünf 
Einsprünge, die man nur auf dem 600 
XL, 800 XL und 130 XE nutzen sollte. 
Programme, die auf dem Atari 400 und 
800 laufen sollen, dürfen diese Ein- 
sprünge auf keinen Fall verwenden! 
Man sollte sich also folgendes merken: 
Programme, die für alle Geräteversio- 
nen bestimmt sind, dürfen nur Ein- 
sprungadressen zwischen $E450 und 
$E47TF benutzen. Alle anderen Aufrufe 
von Routinen im Bereich ab $C000 auf- 
wärts sind illegal. 

Nach diesen Vorüberlegungen kom- 
men wir zu den einzelnen Routinen. 
Hier muß man einerseits zwischen den 
Routinen unterscheiden, die für den 
Basic-Programmierer interessant sind 
und andererseits zwischen denen, die 


nur auf Maschinenspracheebene von 
Bedeutung sind. Beginnen wir miteiner 
kurzen Übersicht über die einzelnen 
Funktionen: 
58448 $E450 - DSKIV 

Über diese Routine kann man den 
seriellen Bus für die Benutzung der Dis- 
kettenstation initialisieren. 
58451 $E453 - DSKINV 

Ein- und Ausgaberoutine für die Dis- 
kettenstation, über die man einzelne 
Diskettenoperationen ausführen kann 
(beispielsweise Sektoren lesen oder 
schreiben). 
58454 $E456 - CIOV 

Diesist.der Einsprung für das wichtig- 
ste Unterprogramm des Betriebssy- 
stems, der CIO. Über die CIO (Central 
Input/Output Utility) können alle stan- 
dardmäßigen Ein- und Ausgabeopera- 
tionen durchgeführt werden (Datei öff- 
nen, Bytes schreiben, Bytes lesen 
etc). Bis auf zwei Befehle nämlich, 
BPUT und BGET (siehe auch den Arti- 
kel über eine Schnell-Laderoutine in 
diesem Sonderheft), sind alle CIO- 
Funktionen auch über Basic-Befehle 
ansprechbar. 
58457 $E459 - SIOV 

Einsprung in die Ein- und Ausgabe- 
routine für den seriellen Bus. Mit dieser 
Routine kann man alle Ein- und Ausga- 
ben über den seriellen Bus durchfüh- 
ren, unter anderem natürlich auch die 
unter DSKINV aufrufbaren Funktionen. 
58460 $E45F - SETVBV 

Diese Routine kann Vektoren von 
wichtigen Betriebssystemroutinen än- 
dern. Dafür ist eine eigene Routine 
nötig. Wird nämlich ein Vektor in dem 
Moment aufgerufen, in dem man ihn 
verändert, kann dies einen Systemab- 
sturz zur Folge haben. Um einen Vektor 
zu ändern, muß man zunächst das X- 
und das Y-Register (High- und Low- 
Byte) mit dem gewünschten Wert 
laden. Mit dem Akku legt man dann den 
zu verändernden Vektor beziehungs- 
weise Zähler fest: 


Wert Name Bedeutung 

0° VIMIRQ IRQ-Vektor 

1-5 CDTMVI-5 Systemzähler 1-5 

6 VVBLKI Vektor auf 
Immediate-VBl 

{6 VVBLKD Vektor auf 
Deferred-VBl 

58463 $E45F - SYSVBV 

Routine zur Beendigung des 


Immediate-VBl (Vertical Blank Inter- 
rupt). 
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58466 $E462 - XITVBV 

Routine zur Beendigung des Da»- 
ferred-VBl. 

58469 $E465 - SIOINV 

Routine zur Initialisierung des Pokey- 
Chips, der beim Einschalten nicht initia- 
lisiert wird. 

58472 $E468 - SENDEV 

Pokey-Chip auf Ausgabe stellen. 
58475 $E468 - INITIV 

NMI-Interrupts initialisieren. 

58478 $E46E - CIOINV 

Routine zur Initialisierung der CIO 
(siehe oben). 

58481 $E471 - BLKBDV 

Vektor für den Basic-Befehl BYE, der 
beim Atari 400/800 in den Memo-Pad- 
Modus und bei den neueren Geräten in 
den Selbsttest führt. 

58484 $E474 - WARMSV 

Vektor für den Warmstart; entspricht 
dem Drücken der RESET-Taste. 
58487 $E477 - COLDSV 

Vektor für den Kaltstart; entspricht 
‚dem Aus- und Einschalten des Compu- 
ters (allerdings wird der zusätzliche 
RAM-Bereich des XE nicht gelöscht). 
58490 $E47A - RBLOKV 

Einen Block vom Kassetten-Recor- 
der einlesen. 

58493 $E47D - CSOPIV 

Einen Kanal für das Lesen von Daten 
vom Kassetten-Recorder öffnen. 
58496 $E480 - PUPDIV 

Sprung zum Einschaltbild, das beim 
XL und XE dem Selbsttest entspricht. 
58499 $E483 - SLFTSV 

Sprung in den Selbsttest. 

58502 $E486 - PHENTV 

Eintrag in der Gerätetreibertabelle 
vornehmen. 

58505 $E489 - PHULNV und 
58508 $E48C - PHINIV 

Spezielle Routinen für die Benutzung 
des parallelen Busses. 

Die Erfahrung zeigt, daß von den auf- 
geführten Routinen nur acht häufiger 
benutzt werden. Dies sind natürlich 
zunächst einmal die Einsprünge für 
Warmstart (von Basic: USR(58484)) 
und Kaltstart (USR(58487)). Dazu 
kommen SETVBV, SYSVBV und XITVBV, 
die bei Interrupt-Routinen des öfteren 
notwendig sind. Es bleiben die drei Ein- 
und Ausgaberoutinen DSKINV, CIOV 
und SIOV. 

Da alle CIO-Funktionen (bis auf die 
oben genannte Ausnahme) direkt über 
Basic-Befehle ansprechbar sind, blei- 
ben also für den Basic-Programmierer 
noch die beiden Routinen DSKINV und 
SIOV, 

Sie steuern die Ein- und Ausgaben 
über den seriellen Bus, wobei DSKINV 
sozusagen eine auf die Diskettensta- 
tion »spezialisierte« Version von SIOV 
ist. 

In der obigen Liste war sehr gut zu 
erkennen, daß man beim Aufruf von 


Betriebssystemroutinen die Prozessor- 
register oft auf bestimmte Werte setzen 
muß. Dies ist jedoch mit der USR- 
Funktion nichtmöglich. Außerdem kann 
man mit USR nur speziell für Basic 
geschriebene Routinen aufrufen, dadie 
mit USR übergebenen Werte automa- 
tisch auf dem Prozessor-Stack abge- 
legt werden. Daher benötigt man eine 
spezielle USR-Routine, die zunächst 
die Prozessorregister lädt und dann 
einen »echten« Sprung ausführt. Ein 
solches Programm finden Sie im abge- 
druckten Basic-Programm. 

Bitte speichern Sie das Programm ab, 
bevor Sie es mit RUN ausprobieren. 

Zunächst wird das 35 Byte lange 
Maschinenprogramm in die Zeichen- 
kette CALL$ gelesen. Daraufhin wird zu 
Demonstrationszwecken, mit Hilfe der 
Betriebssystemroutine DSKINV, der 
Bildschirm in Grafikstufe 24 mit dem 
Inhalt der ersten 60 Sektoren auf der 
Diskette gefüllt. Hier eine Erklärung der 
Register, die man setzen muß: 


Trickreiche Adressen 


769 $301 - DUNIT 

Nummer des anzusprechenden Dis- 
kettenlaufwerks (1 bis 8). 
770 $302 - DCOMND 

Kommando der auszuführenden 
Funktion. Das 1050-Laufwerk von Atari 
versteht folgende Kommandos: 
33 (»!«): Formatieren mit 720 Sektoren 


34 (»”«): Formatieren mit 1040 Sekto- 
ren 

80 (»P«): Sektor schreiben ohne Über- 
prüfung (läuft nur auf dem Atari 800, XL 
und 130 XE) 

82 (»R«): Sektor lesen 

83 (»S«): Status überprüfen R 

87 (»We): Sektor schreiben mit Über- 
prüfung 

772,773 $304,$305 - DBUFLO,HI 

Zeiger auf die Stelle im Speicher, ab 
der die Informationen eines Sektors von 
Diskette gelesen oder geschrieben 
werden. 

778,779 $30A,$30B - DAUX1/2 

Nummer des anzusprechenden Dis- 
kettensektors. 

Betrachten wir nun den Rest des Bei- 
spielprogramms: In den Zeilen 1160 bis 
1180 werden den Registern zunächst 
Konstanten zugeordnet. Dies ist nicht 
unbedingt notwendig, trägt aber zur 
Verständlichkeit des Programms bei. Es 
folgt in Zeile 1190 das Einschalten der 
hochauflösenden Grafik. Außerdem 
wird die Anfangsadresse des Bildspei- 
chers berechnet und in der Variablen 
SC abgelegt. Bereits in Zeile 1200 wer- 
den die ersten Register für die DSKINV- 
Routine gesetzt: DUNIT enthält den 
Wert 1, weil das erste Laufwerk benutzt 
werden soll. DCOMND wird auf Lesen 
von Sektoren (»R« wie Read) gesetzt. 
Werte, die über den Bereich von O bis 
255 hinausgehen, erscheinen beim 
‚Atari immer als Doppelbytes, bei denen 
das zweite Byte das höherwertige ist. 
Konkret heißt das, daß man den Wert 


Tabelle der wichtigsten Einsprungvektoren V 


Beschreibung 


Initialisierung des Laufwerks 


Ein- und Ausgabe für Diskettenstation 


ıL. 


Central Input/Output-Routine (CIO) 


‚Serial Input/Output-Routine (SIO) 


Interrupt-Vektoren setzen 


Beende Immediate-VBl 


Beende Deferred-VBi 


Initialisiere POKEY-Chip 


Schalte POKEY auf Ausgabe 


Interrupts initialisieren 


‚CIO initialisieren 


Vektor für »BYE« 


Warmstart-Vektor 


Kaltstart-Vektor 


| Record von Kassette lesen 


Die folgenden Einsprünge gibt es nur auf dem 600 XL, 800 XL und 130 XE! 


se480 | 58486 | Pupoiv ] Vektor zum Einschaltbild 
SE483 53499 SUFTSV | Vektor zum Selbsttest 

sEass | 58502 PHENTV | Eintrag in HATABS vornehmen 
sEa8s9 | sssos PHULNV | Eintrag löschen 

sessc | s8sos PHINIV | Parallelen Bus intiaisieren 
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einer solchen Adresse folgender- 
maßen berechnen kann: 

»PEEK(Adresse)+256" PEEK 
(Adresse+1)« 

Analog muß man natürlich vorgehen, 
wenn man ein solches 16-Bit-Register 
verändern will. Da nur die Sektoren bis 
Nummer 60 angesprochen werden sol- 
len, muß das High-Byte der Sektornum- 
mer immer den Wert O enthalten. Es 
muß also nur ein einziges Mal, vor dem 
Eintritt in die Hauptschleife, richtig 
gesetzt werden. Anschließendnochmit 
der gleichen Methode DBUFLO/HI auf 
den Anfang des Bildspeichers bringen. 
Die Schleife von 1220 bis 1270 benutzt 
das Indexregister »I« als Schleifenzäh- 
ler, so daß man | als Low-Byte der Sek- 
tornummer betrachten und in DAUX1 
übertragen kann. 

Schließlich folgt noch der Aufruf der 
Betriebssystemroutine. Da DSKINV 
keine speziellen Werte in den Prozes- 
sorregistern erwartet, wird hier einfach 
jeweils die O als Wert angegeben. Zu 
guter Letzt muß noch das Doppelbyte 
DBUFLO/HI um genau 128 erhöht wer- 
den, da schließlich jeder Sektor 128 
Byte lang ist. 

Sie haben sicherlich bemerkt, daß 
dabei nicht unbedingt die größte Lade- 
geschwindigkeit erreicht wird. Das liegt 
daran, daß die Basic-Befehle zwischen 
den einzelnen Aufrufen von DSKINV 
immer so lange warten müssen, bis die 
Diskette wieder eine volle Umdrehung 
zurückgelegt hat. Erst dann kann der 
nächste Sektor gelesen werden. 


DPEEKs und DPOKEs 
mit Turbo-Basic XL 


Abhilfe schafft Turbo-Basic XL, das 
einerseits das Atari-Basic an Geschwin- 
digkeit übertrifft, außerdem für die Ver- 
änderung von 16-Bit-Registern die 
schnelleren (und komfortableren) 
Befehle DPEEK und DPOKE zur Verfü- 
gung stellt. 

Ungefähr das gleiche kann man mit 
der Routine SIOV ($E459) erledigen. 
Allerdings gibt es auch einige Unter- 
schiede. Daman nicht auf die Disketten- 
station festgelegt ist, sondern auch 
Drucker oder Kassetten-Recorder 
ansprechen kann, müssen einige Regi- 
ster zusätzlich initialisiert werden 
(diese Arbeit nimmt einem normaler- 
weise der Einsprungvektor DSKINV 
ab); 

768 $300 - DDEVIC 

Mit diesem Register wird der anzu- 
sprechende Gerätetyp ausgewählt: 
49 = Diskettenstation 


96 = Kassetten-Recorder 
771 $303 - DSTATS 
Einerseits muß vor dem Aufruf von 


IRB REM --------- <RW> 
1812 REM Betriebssystem-Demo <aT> 
19220 REM von Julian F. Reschke <ZE> 
iB35@B REM (c) Happy Computer <EY> 
1D4@ REM -—————— <S1> 
1858 DIM CALLF (35) :CALLFCISSI=S"" <ES> 
1858 PRUEF=2@ <IV> 
1878 FOR I=1 TO 35 <IG> 
1882 READ WERT: PRUEF=FRUEF+WERT <J@> 
19982 CALL£(I,I)=CHR$ (WERT) <JA> 
11@@ NEXT I <ER> 
111@ IF PRUEF<>49987 THEN PRINT CHR£(1259) 
;"Datenfehler!":END <DD> 
112@ REM <TE> 
113@ DATA-124,104,194,133,212,184,194,13 
3,213,104,104,133,214,104,133,215,104,56 

„233 <BD> 
1142 DATA.1,170,165,215,233,0,72,138,72, 
165,212,166,213,164,214,96 <0J> 
1152 REM <TP> 
11&@ DUNIT=769: DCOMND=778 <OR> 
1178 DBUFLO=772: DBUFHI=773 <YN> 
1189 DAUX1=778: DAUX2=779:DSKINV=58451 <XB> 
119@ GRAPHICS 24:SETCOLOR 2,98,90:SC=PEEK( 

88) +256*PEEK (89) <EX> 
1208 POKE DUNIT,1:POKE DEOMND,ASCC"R"):F 

OKE DAUX2,Q <NQ> 
12189 POKE DBUFHI ,INT (SC/256) :POKE DBUFLO 
„SC-256#PEEK (DBUFHI) <IK> 
1229 FOR I=1 TO 68 <61> 
1238 FOKE DAUX1,I <LX> 
1248 WERT=USR (ADR (CALL$) „D,8,2,DSKINV) <LV> 
1258 LO=128+FEEK (DBUFLO): IF 1LO<256 THEN 

POKE DBUFLO,LO:G0TO 1278 <SL> 
1268 1L0=1L0-256:FOKE DRUFHI „1+PEEK (DBUFHI 
)zPOKE DBUFLO,LO <JQ> 
127@ NEXT I <FO> 
1288 GOTO 1280 <S0> 


Mit diesem Programm können von Basic aus Betriebssystem-Vektoren 
angesprungen werden. Anschließend kehrt man wieder ins Basic zurück. 


'SIOV festgelegt werden, ob es sich um 
eine Ausgabe (128) oder eine Eingabe 
(64) handelt. Andererseits enthält 
DSTATS im Anschluß daran den Status- 
code des seriellen Busses (entspricht 
normalerweise dem Basic-Fehlercode). 
774 $306 - DTIMLO 

Auch die Zeit in Sekunden, die die 
Ausführung eines Kommandos dauern 
darf, muß festgelegt werden. Für Dis- 
kettenoperation kann man eine 7 wäh- 
len (Ausnahme ist das Formatieren, für 
‚das man den Wert 160 ansetzen sollte). 
Für Operationen mit einem Kassetten- 
Recorder oder einem Drucker empfeh- 
len sich Werte um 30. 
776,777 $308,5309 - DBYTLO/HI 

Anzahl der zu übertragenden Bytes. 
Bei der Diskettenstation normalerweise 
128. 

Bleibt anzumerken, daß der Befehl P 


(Schreiben ohne Überprüfung) auf dem 
Atari 400/800 voraussetzt, »SIOV« zu 
benutzen, da bei den alten Betriebs- 
systemversionen dieser Befehl von 
DSKINV nicht unterstützt wurde. 

Die Routine CALL$ können Sie übri- 
gens auch verwenden, um eigene 
Maschinenspracheroutinen von Basic 
aus aufzurufen. Dies ist immer dann 
notwendig, wenn die betreffenden Rou- 
tinen nicht als USR-Routinen für Basic 
konzipiert wurden. 

Es zeigt sich also, daß man mit Ein- 
sprungadressen ins Betriebssystem 
der Atari-Computer viele wirklich nützli- 
che Funktionen ausführen kann. Für 
den Basic-Programmierer öffnen sich 
somit viele sonst verschlossene Türen. 
Denn leider ist Basic in so manch einer 
Hinsicht einfach überfordert. 

(Julian F. Reschke/wb) 
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=, 


as 


PEEKs und 
POKESs mit 
List und 
Tücke 


Wer seinem Atari etwas mehr 
entlocken will, als es die norma- 
len Basic-Befehle zulassen, der 


as Atari-Basic verfügt schon in 

der Grundversion über einige 

sehrkomfortable Befehle. Wenn 
man jedoch beispielsweise bewegte 
Grafik erzeugen möchte, stößt man in 
Basic schnell auf Grenzen. Wer sich 
dann nicht recht mit Maschinensprache 
anfreunden will, kann sich einer Vielzahl 
von PEEKs und POKEs bedienen, ohne 
die ein gutes Programm in Basic schon 
fast nicht mehr auskommt. 

Die Beschreibung der einzelnen 
Adressen geht jeweils nach einem 
bestimmten Schema vor sich. Zuerst 
findet man den dezimalen Wert der 
Speicherstelle vor. Danach folgt der 


ee 


Viele der Player-Missile-Adressen 
haben die Eigenart, daß sie, je nachdem 
ob sie gelesen oder beschrieben wer- 
den, unterschiedliche Funktionen 
wahrnehmen. Bezieht sich in der 
Tabelle eine Beschreibung auf das 
Lesen, so wird dies mit (L), beim Schrei- 
ben mit (S) gekennzeichnet. Die Größe 
eines Players oder Missiles wird folgen- 
dermaßen angegeben. Wert O oder 2 
entspricht der normalen Größe. Wert 1 
ergibt die doppelte Größe und Wert 3 
die vierfache Größe. Ist der Inhalt eines 
Kollisionsregisters ungleich Null, so hat 
ein Zusammenstoß zwischen den 
jeweils angegebenen Playern oder Mis- 


sollte sich der zahlreichen Spei- entsprechende hexadezimale Wert, der siles stattgefunden. 
cherstellen bedienen, die man jedoch nur bei der Programmierung in (Wolfgang Czerny/wb) 
mit PEEK und POKE erreicht. Maschinensprache interessant ist. Tabelle der wichtigsten PEEKs und POKEs 
2 m — 
Dezimal- |Hexadezimal-| Label Beschreibung 
Wert Wert | 
16 sıo IRQEN Die Interruptquellen des Pokey können von hier aus gesteuert werden. 
Beispiel: »POKE 16,64:POKE 53774,64« setzen die BREAK-Taste bis zum nächsten Graphics-Befehl 
außer Funktion. 
17 sm IROST Zeigt an, ob Interrupts des Pokey aktiv geworden sind. 
Beispiel: »PEEK(17)=0« sagt aus, daß die BREAK-Taste gedrückt wurde. 
1819,20 | $12,513,814|CLOCK |Ein 3-Byte-Wert, der alle so Sekunde inkrementiert wird. Zeitdifferenzen kann man wie folgt berech- 


nen: »Start=INT((PEEK(18)*65536)+(PEEK(19)* 256)+PEEK(20))/50)«. Die STOP-Zeit wird ebenso 
ermittelt. Die Zeitdifferenz ZEIT errechnet sich dann aus STOP minus START in Sekunden. Eine Uhr 
‚kann mit diesen Speicherstellen natürlich auch simuliert werden. 


IOSOUNDEN]| Bei einem Wert von Null wird bei Input/Output-Operationen, also beispielsweise beim Lesen einer Dis- 
kette, die Tonausgabe unterdrückt. Beispiel: »POKE 65,0« schaltet den Ton ab, »POKE 65,3« schaltet 
je ihn wieder ein. Auf die Sound-Befehle oder das Tastaturklicken hat dies jedoch keinen Einfluß, 


77 $4D AITRACT |Der sogenannte Attract-Modus ist für den Farbwechsel zur Schonung des Bildschirms verantwortlich. 
Wird für etwa zehn Minuten keine Taste betätigt, so hat ein Zähler den Wert 128 erreicht und schaltet 
diesen Modus ein. Dies kann verhindert werden, indem man im Programm regelmäßig den Befehl 
»POKE 77,0« durchführt und so den Zähler auf Null zurücksetzt. Mit »POKE 77,129« schaltet man den 
Attract- Modus sofort ein. 

82 s52 LMARGIN | Linker Rand bei der Textdarstellung. Der Standardwert ist 2. Mit »POKE 82,0« beispielsweise kann der | 
linke Rand aut Spalte O eingestellt werden. 

83 553 RMARGIN | Rechter Rand bei der Textdarstellung. Der Standardwert in Grafikstufe O ist 39. »POKE 83,X« stellt den 

_|rechten Rand auf Spalte X. 

84 854 ROWCRS | Diese Speicherstelle beinhaltet die aktuelle Zeilenposition des Cursors in Grafikstufe O. 

85,86 355,556 COLCRS [Aktuelle ‚Spaltenposition des Cursors als 2-Byte-Wert in Grafikstufe O. 

88,89 558,559 SCRSTART | Dieser 2-Byte-Wert gibt die Adresse des ersten Bildschirmbytes an. Man errechnet sie folgenderma- 
Ben: »ADR=PEEK(88)+256*PEEK(89)« 

Kennt man diese Adresse, so kann man den Bildschirm leicht speichern oder beliebige Werte direkt auf 
den Bildschirm POKEn. 

93 $5d DATCURS | Hier wird das Zeichen abgelegt, das sich unmittelbar unter dem Cursor befindet. 

106 s6a RAMTOP | Durch die Verschiebung des RAM-Tops wird es beispielsweise möglich, mehrere Soreens gleichzeitig 
im Speicher zu behalten und sie dann im sogenannten Page-Flipping hin und her zu schalten. 

186,187 | $ba,$bb Dieser 2-Byte-Wert enthält die Zeilennummer beim Abbruch eines Programms. Ein solcher Abbruch 


kann durch eine Programmunterbrechung mit BREAK, ein STOP oder einen Fehler verursacht werden. 


Beim Auftreten eines Fehlers wird der Fehlercode hier gespeichert. Dies ist vor allem dann von Nutzen, 
wenn ein Programmabbruch mit dem TRAP-Befehl verhindert wird, der jeweilige Fehler aber dennoch 
registriert werden soll. Beispiel: »ERROR=PEEK(195)«. 


Antic-Kontrolle. Belegt man diese Speicherstelle mit dem Wert Null, so wird der Bildschirm ausgeschal- 
tet. Je nach Grafikstufe bringt dies eine Geschwindigkeitssteigerung bis zu 30 Prozent. Um den Bild- 
schirm wieder einzuschalten, muß man die Speicherstelle mit ihrem ursprünglichen Wert belegen. 
Beispiel: »WERT=PEEK(559):POKE 559,0« schaltet den Bildschirm aus. »POKE 559, WERT« schaltet 
ihn wieder ein. POKEt man hier den Wert 62, so bedeutet dies einfache Auflösung und beim Wert 46 
doppelte Zeilenauflösung der Player und Missiles. 


Dieser 2-Byte-Wert gibt die Anfangsadresse der Display List an. »DL=PEEK(560)+256"PEEK(S61)«. 
Wenn in dieser Speicherstelle ein Wert größer Null steht, erfolgt beim Betätigen der SYSTEM RESET«- 


Taste ein Kaltstart. Das heißt, daß gewisse Initialisierungsvorgänge ablaufen und bei angeschlossenem 
Diskettenlaufwerk neu gebootet wird. Beispiel: »POKE 580,1«. 


195 


sca ar 
[2 


559 DMACNTL 


DLPTR 
COLDSTR 


560,561 
580 


$230,8231 
$244 
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Dezimal- | Hexa- Label Beschreibung 
Wert dezimal- 
Wert 

623 $26f Prioritätsregister der Player-Missiles. 

694 $2b6 XORKEYMSH POKEt man eine Zahl in diese Speicherstelle, so wird der Zeichencode der Tastatur um den gePOKE- 
ten Wert verschoben. 

Beispiel: »POKE 694,128« bewirkt, daß statt der normalen Buchstaben inverse Buchstaben und Zei- 
chen ausgegeben werden. 

702 $2be SHIFTLOCK | Hier kann man die Tastaturcodes bis zu einem gewissen Grad beeinflussen. »POKE 702,128« simuliert 
die Betätigung der CONTROL-Taste. Tippt man also normale Buchstaben ein, so werden statt dessen 
die entsprechenden Grafikzeichen ausgegeben. »POKE 702,0« schaltet den Kleinschrift-Modus ein, 
den man auch über die CAPS-Taste erreicht. »POKE 702,64« schaltet zurück in den normalen Schrift- 
Modus. »POKE 702,128« simuliert die Betätigung der CONTROL-Taste. Tippt man also normale Buch- 
‚staben ein, so werden statt dessen Grafikzeichen ausgegeben. »POKE 702,255« bewirkt, daß nur 
noch Tasten akzeptiert werden, die mit numerischen Werten oder Interpunktion belegt sind. Buchsta- 
ben können nur über die SHIFT-Taste erzeugt werden. 

703 $2bf NUMNXTLIN | Der hier gespeicherte Wert gibt die Zahl der Textzeilen auf dem Bildschirm an. Es werden nur die Werte 
0, 4 und 24 akzeptiert. POKEt man zum Beispiel in Grafikstufe O den Wert 4, so erhält man ein vierzei- 
liges Textfenster am unteren Bildschirmrand, wie man es von verschiedenen Grafikstufen her kennt. Auf 
diese Weise kann man auch in Grafikstufe O ein vom sonstigen Bildschirm unabhängiges Textfenster 
einschalten. Wie in Grafikstufe 1 und 2 muß der Bildschirm dann mit PRINT #6 angesprochen werden. 
Dabei empfiehlt es sich, den Cursor mit »POKE 752,1« zumindest vorübergehend auszuschalten. 

704 $2c0 COLPMO Farbregister für Player O und Missile O 

705 $2c1 COLPM1 Farbregister für Player 1 und Missile 1 

706 $202 COLPM2 Farbregister für Player 2 und Missile 2 

707 $2c3 COLPM3 Farbregister für Player 3 und Missile 3 

708 $204 COLORO Farbregister ©. Dies entspricht dem Befehl »SETCOLOR 0,Farbe,Helligkeite. Um den entsprechenden 
POKE-Wert zu erhalten, multipliziert man den Farbwert mit 16 und addiert den Helligkeitswert. Beispiel 
für die Farbe Blau. »SETCOLOR 0,9,4« entspricht dem Befehl »POKE 708,9*16-+4« oder »POKE 
708,148«. In Grafikstufe 1 und 2 bestimmt dieses Register die Farbe der Großbuchstaben. 

709 $2c5 COLOR1 Farbregister 1. In Grafikstufe 1 und 2 bestimmt dieses Register die Farbe von Kleinbuchstaben. In 
Stufe O und 8 wird hier die Helligkeit der Zeichen eingestellt. 

7ı0 $2c6 COLOR2 Farbregister 2. In Grafikstufe 1 und 2 bestimmt dieses Register die Farbe inverser Großbuchstaben, in 
Stufe O und 8 die Farbe des Hintergrunds. 

7 $2c7 COLOR3 Farbregister 3. Werden die vier Missiles zu einem Player vereinigt, so wird die Farbe dieses zusätzli- 
chen Players hier festgelegt. In Grafikstufe 1 und 2 steht hier der Farbwert für inverse Kleinbuchsta- 
ben. 

rı2 $2c8 COLOR4 Hintergrundfarbe 

729 $2d9 KEYRPDELY | Bestimmt die Zeit vom Tastendruck bis zum Beginn der Repeat-Funktion. Der Standardwert ist 40. 

730 $2da KEYREP ‚Gibt die Wiederholungsfrequenz der Repeat-Funktion an. Der Standardwert ist 5. 

731 $2db CLICKDISA | Hier kann man das Tastaturklicken ein- und ausschalten. »POKE 731,255« bedeutet Klicken aus, 
»POKE 731,0« schaltet das Klicken ein. 

732 $2dce HELPFLAG | Diese Speicherstelle gibt an, ob die HELP-Taste gedrückt wurde. 

Beispiel: »X=PEEK(732)« 

x= 17 bedeutet HELP-Taste gedrückt 

x= 81 bedeutet SHIFT-HELP gedrückt 
x=145 bedeutet CONTROL-HELP gedrückt 

752 $s2f0 CRSINH Mit dieser Speicherstelle läßt sich der Cursor ein- und ausstellen. »POKE 752,1« bedeutet Cursor aus, 
»POKE 752,0« bedeutet Cursor ein. 

755 $s213 CHARCTRL | Hier kann man die Darstellung des Cursors und des Textes auf dem Bildschirm beeinflussen. Es sind 
acht verschiedene Einstellungen möglich. Beispiel: »POKE 755,X« 

X=0 - Zeichen sichtbar, Cursor unsichtbar, Schrift normal 

X%=1 - Zeichen unsichtbar, Cursor unsichtbar, Schrift normal 

X%=2 - Zeichen sichtbar, Cursor sichtbar, Schrift normal 

X=3 - Zeichen unsichtbar, Cursor sichtbar, Schrift normal 

X=4 - Zeichen sichtbar, Cursor unsichtbar, Schrift auf dem Kopf 

X=5 - Zeichen unsichtbar, Cursor unsichtbar, Schrift auf dem Kopf 

X=6 - Zeichen sichtbar, Cursor sichtbar, Schrift auf dem Kopf 

X=7 - Zeichen unsichtbar, Cursor sichtbar, Schrift auf dem Kopf 

POKEt man mit einer Schleife abwechselnd die Werte O bis 3 in diese Speicherstelle, so kann man 
invers dargestellten Text in Grafikstufe O zum Blinken bringen. 

756 sata CHARBASE | Zeichensatzauswahl. Der Atari hat neben seinem Standardzeichensatz noch einen internationalen Zei- 
chensatz vorrätig, in dem auch die deutschen Umlaute enthalten sind. Dieser internationale Zeichensatz 
wird durch »POKE 756,204« aktiviert. Mit »POKE 756,224« schaltet man zurück in den normalen Zei- 
chensatz. Der »POKE 756,226« ermöglicht es, in Grafikstufe 1 und 2 Kleinbuchstaben und Grafikzei- 
chen darzustellen. Allerdings muß man sich dann das Leerzeichen selbst definieren, da in diesem 
Modus das Leerzeichen als Herz dargestellt wird. 
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Dezimal- | Hexa- Label Beschreibung 
Wert dezimal- 
Wert 
764 $2fe KBCODE | Hier wird der Tastaturcode der zuletzt gedrückten Taste gespeichert. Dieser Code entspricht allerdings 
| nicht dem Standard-ASCII-Code, sondern stellt einen Atari-spezifischen Code dar. 
10211151 | satd-sart |cASBUF | Kassettenpufferbereich. Bei der Verwendung von Diskettenlaufwerken kann man diesen Bereich zum 


‚Speichern von Maschinenunterprogrammen verwenden. 


1536-1791 


$0600-06ff 


Page 6 - Dieser Bereich wird in der Regel zum Speichern von Maschinenunterprogrammen verwendet. 


(U) Kollisionsregister Missile 0 mit Spielfeld. 
(S) Horizontale Position von Player O. 


(U) Kollisionsregister Missile 1 mit Spielfeld. 
(S) Horizontale Position von Player 1. 


|, 63250 $d002 (L) Kollisionsregister Missile 2 mit Spielfeld. 
(S) Horizontale Position von Player 2. 

53251 $d003 (L).Kollisionsregister Missile 3 mit Spielfeld. 
($) Horizontale Position von Player 3. 

53252 | $dooa (U) Kollisionsregister Player 0 mit Spielfeld. 
(S) Horizontale Position von Missile O. 

53253 $d005 (L) Kollisionsregister Player 1 mit Spielfeld. 
(S) Horizontale Position von Missile 1. 

53254 $d006 (L) Kollisionsregister Player 2 mit Spielfeld. 


(S) Horizontale Position von Missile 2. 


(U) Kollisionsregister Player 3 mit Spielfeld. 
(S) Horizontale Position von Missile 3. 


{L) Kollisionsregister Missile O mit einem Player. 
(S) Größe von Player 0. 


PAAR LEIR 


(U) Kollisionsregister Missile 1 mit einem Player. 
(8) Größe von Player 1. 


(U) Kollisionsregister Missile 2 mit einem Player. 
(S) Größe von Player 2. 


(U) Kolisionsregister Missile 3 mit einem Player. 
(S) Größe von Player 3. 


(L) Kollisionsregister Player 0 mit anderem Player. 
(S) Größe von Missile 0. 


(L) Kollisionsregister Player 1 mit anderem Player. 
(S) Größe von Missile 1. 

(U) Kollisionsregister Player 2 mit anderem Player. 
(S) Größe von Missile 2. 

(L) Kolisionsregister Player 3 mit anderem Player. . 
(S) Größe von Missile 3. 


(S) Hier kann man die Player und Missile ein- und ausschalten. 


(S) Schreibt man in dieses Register einen beliebigen Wert, so werden alle Kollisionsregister gelöscht. 


Diese Speicherstelle wird zur Abfrage der Sondertasten des Atari, also von OPTION, SELECT und 
START verwendet. Da die HELP-Taste nur bei den XL-Modellen vorkommt, ist ihre Abfrage an anderer 
‚Stelle zu entnehmen. Die Werte, die man aus dieser Speicherstelle erhält, haben folgende Bedeutung: 
X=PEEK(53279) 

x=0 - OPTION+SELECT+START gedrückt 

x=1 - OPTION+SELECT gedrückt 

x=2 - OPTION+START gedrückt 

x=3 - OPTION Taste gedrückt 

x=4 - SELECT+START gedrückt 

x=5 - SELECT Taste gedrückt 

x=6 - START Taste gedrückt 

x=7 - keine der Sondertasten wurde betätigt 

Die gleichzeitige Betätigung von CONTROL oder SHIFT mit einer der Sondertasten liefert keine ande- 
ren Werte. 


53770 


$d20a 


Diesem Register kann man eine Zufallszahl entnehmen, deren Wert zwischen O und 255 liegt. Das ist 
vor allem beim Arbeiten mit Compilem wichtig, die die »RND«-Funktion nicht übersetzen. 


54016 


$d300 PORTA 


Port A der PIA 


54017 


84301 


Port B der PIA 


54018 


$d302 


Datenrichtungsregister für Port A. 


54019 


$d303 


Datenrichtungsregister für Port B. 


54279 


$d407 


Hier muß das High-Byte der Adresse des Player-Missile-Speichers stehen. 
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Dem 
SOUND-Befehl 
auf der Spur 


Oft wird den Atari-Computern Ihre Soundfähigkeit 
abgesprochen. Ein paar Tricks entlocken dem 
‚Atari aber dennoch sehr wohlklingende Töne. 


PROGRAMM-STECKBRIEF 


Leserservice 


Programmname Musik-Kurs ] 

Programmtyp Kurs 

Programmiersprache Atarı-Basic 

Programmlänge insgesamt 33716 Byte 

für Computer 800XU130XE 

zusätzliche Hardware Diskettenlaufwerk oder 
Kassettenrecorder 

Eingabehife Prüfsummer | 

Bemerkung zusammenhängender Musik-Kurs 
(SOUND7 und SOUNDS sind 
Demos). 


Diskette (SOUND12 bis SOUND.8) 


puter Musikqualitäten einer elektronischen Orgel ab- 

zuverlangen. Schließlich wurde er in erster Linie für 
andere Zwecke entwickelt. So geht seine Verwendung vom 
Spielecomputer über Grafikanwendungen bis hin zur Datei- 
verwaltung und Textverarbeitung. Aber es beschäftigen sich 
eben auch einige »Musikfreaks« mit den Soundeffekten. 

In diesem Beitrag dreht sich alles um den SOUND-Befehl. 
So gilt es hier, dem Atari-Computer in Sachen Tonerzeugung 
auf die Sprünge zu helfen. Der eingebaute Sound-Baustein 
»Pokey« soll also vollausgereizt werden. Dabei werden Tricks 
angewandt, die bislang nur Insidern bekannt waren. 

Noch ein Wort zum Aufbau dieses Beitrags. Sie finden eine 
ganze Reihe von dokumentierten Listings, die das Grundge- 
rüst des Artikels darstellen. Nur wenn Sie diese Programme 
vorliegen haben, können Sie sich richtig in die »>Sound«- 
Materie der Atari-Computer einarbeiten. Es empfiehlt sich 
also, alle hier abgedruckten Programme einzugeben. Wenn 
Sie ein Diskettenlaufwerk verwenden, sollten Sie die Pro- 
gramme mit den vorgeschlagenen Programmnamen spei- 
chern. Nach der Abarbeitung des ersten Programms wird 
dann automatisch das nächste Programm geladen etc. Ver- 
wenden Sie einen Kassettenrecorder, müssen Sie die Pro- 
gramme in der abgedruckten Reihenfolge eingeben und auf 
einer Kassette speichern. Übrigens: Lassen Sie die Musik- 
programme nur unter dem normalen Atari-Basic laufen, 
Turbo-Basic XL arbeitet die Programme viel zu schnell ab. 

Der SOUND-Befehl setzt sich aus den vier Parametern 
»Voice«, »Pitch«, »Distortion« und »Volume« zusammen. Dabei 
steht Voice für Stimme, Pitch für Tonhöhe, Distortion für Ver- 
zerrung und Volume für die Lautstärke. Damitman sich besser 
und schneller in die Beispielsprogramme einarbeiten kann, 
werden immer die gleichen Variablen verwendet. Dies trägt 
außerdem zur Übersichtlichkeit bei. In den folgenden Bei- 
spielen wird immer nur die erste Stimme verwendet. Der Ver- 


E s ist sicher etwas zuviel verlangt, einem Heimcom- 


zerrungsfaktor beträgt dabei stets 10. Die Tonwiedergabe 
erfolgt bei dieser Einstellung verzerrungsfrei. 

Falls Sie ein Diskettenlaufwerk verwenden, geben Sie jetzt 
bitte »RUN ”D:SOUND112« ein, um Listing 1 zu starten. Beim 
Kassettenrecorder laden Sie bitte das entsprechende Pro- 
gramm. 

Innerhalb der Beispielsprogramme können Sie sich mit der 
OPTION-Taste eine Tonfolge immer wieder anhören. Mit 
START gelangen Sie zum nächsten Beispiel. 

Der Ablauf von Listing 1: 

- Der Computer meldet sich zuerst mit einem mittleren C. 

- Verändern der Lautstärke, mal langsam und dann wieder 
schnell. 

- nur die Tonhöhe verändern 

- Tonhöhe und Lautstärke verändern 

Wenden wir uns nun der Musikprogrammierung zu. Insge- 
samt stehen Pitch-Werte von O bis 255 zur Verfügung. Es 
sindaber nur die Werte interessant, die jeweils einem Ton ent- 
sprechen (siehe Tabelle 1). 


Noten- Tonhöhe Noten- Noten- Tonhöhe Noten- 
nummer name nummer name 
4— 
a 1 14 c w 64 B 
2 55 B 27 68 A# 0.Bb 
3 16 A#0.Bb 28 72 A 
4 17 A 29 76 G#o.Ab 
5 18 G#o.Ab 30 81 6 
6 19 G 31 85 F#0.Gb 
7 21 F#0.6b 32 9 F 
8 22 F 33 96 E 
9 23 E 34 102 D#oEb 
10 24 D#oEb 35 108 D 
ab 26 D 36 114 C#oDb 
12 27 C#oDb 37 121 [3 
13 29 c 38 128 B 
14 3 B 39 136 A#0.Bb 
15 33 Az 0.Bb 40 144 A 
16 35 A 4 153 G#o.Ab 
17 37 G#aAb 42 162 G 
18 40 G 43 173 F#06b 
19 42 F#aGb 44 182 F 
20 45 F 45 193 E 
21 47 E 46 204 D#oEb 
22 so D#aEb 47 217 D 
23 53 D 48 230 C#o.Db 
24 57 C#aDb 49 243 c 
25 60 c 50 255 8 


Tabelle 1. Tonhöhentabelle 

Ein Unterprogramm bestimmt die Tondauer, das heißt, ob 
zum Beispiel eine ganze, halbe oder Viertelnote gespielt wird. 
Es bietet sich hier an, einen im Betriebssystem der Atari- 
Computer eingebauten Counter (Zähler) zu verwenden. 
Dazu eignet sich die Speicherstelle 540. Der in dieser 
Adresse enthaltene Zähler zählt jede so-Sekunde einen 
Schritt zurück. In die Adresse 540 kann also ein Wert zwi- 
schen O und 255 gePOKEt werden. Nach Beendigung der 
Warteschleife, also wenn die Adresse den Wert O erreicht 
hat, kann ins Hauptprogramm zurückgesprungen werden. 
Hier eine Routine, die eine Sekunde lang eine Note spielt: 
10 SOUND 1,200,10,10:REM 
Tonausgabe einschalten 
20 POKE 540,50:REM 
Der Ton soll für eine Sekunde gespielt werden 
30 IF PEEK(540)< > O0 THEN 30:REM 
Wiederhole bis die Speicherstelle 540 den Wert O enthält 
40 SOUND 1,0,0,0:REM 
Ton abstellen. 

Da in einem Programm eine solche Warteschleife öfter 
benötigt wird, bietet es sich natürlich an, für diesen Zweck 
eine separate Unterroutine zu verwenden. Weiterhin emp- 
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fiehlt sich eine Übergabevariable einzusetzen, die bestimmt, 
wie lange ein Ton gespielt werden soll. 

Nachdem eine bestimmte Tonsequenz abgearbeitet 
wurde, müssen gegebenenfalls alle vier Stimmen wieder 
abgestellt werden. Die folgende Programmzeile erledigt dies 
für Sie: 

60 FOR AUS=O TO 3:SOUND AUS,0,0,0:NEXT AUS:RETURN 

Wenn man jetzt also ein Musikstück in Basic schreiben 
möchte, kann man die benötigten Notennummern in DATA- 
Zeilen ablegen. Mit einer READ-DATA-Schleife lassen sich 
dann die Werte lesen und verarbeiten. Listing 2 demonstriert 
dieses Verfahren. 

Wenn Sie ein Diskettenlaufwerk verwenden, wird Listing 2 
automatisch geladen und gestartet. Besitzer eines Kasset- 
tenrecorders müssen jetzt wieder das entsprechende Pro- 
gramm laden. 


Begleitung mit Dur-Akkorden 


Haben Sie bislang nur einfache Beispiele gehört, folgt jetzt 
mit Listing 3 eine komplexere Melodie. 

Es beginnt mit der Dimensionierung der Variablen. Hier 
werden einerseits LINE$ und ein Array N sowie die Variablen 
VO bis V3 vordefiniert. In der Variablen N sind dann insgesamt 
50 Tonhöhen gespeichert. LINE$ nimmt immer eine Textzeile 
auf und stellt sie auf dem Bildschirm dar. Sie dient sozusagen 
dem Dialog. Anschließend erfolgt ein Sprung zu Zeile 100. 
Die DATA-Werte ab Zeile 100 werden aber zunächst ignoriert, 
und es wird ein Unterprogramm ab Zeile 21000 aufgerufen. 

Dieses Unterprogramm ist für das Löschen des Bild- 
schirms, die Hintergrundfarbe, die Schrift und die Fixierung 
der Bildränder zuständig. Dazu werden folgende POKEs ver- 
wendet: 

- »POKE 752,1« Cursor aus 

- »POKE 82,X« und »POKE 83,X« für das Setzen des lin- 
ken und rechten Bildschirmrandes 

- »POKE 201,X« setzt die Anzahl der Leerzeichen fest, 
die bei »PRINT,« ausgegeben werden sollen 

- »POKE 77,0« schaltet den automatischen Farbwechsel 
aus, 

Nachdem das Unterprogramm abgearbeitet ist, springt das 
Programm zurück zu Zeile 120. Jetzt werden noch die Noten 
in das Feld N geschrieben. 

Eigentlich stellt sich nun die Frage: Warum werden die 
Tonhöhen-Werte noch zusätzlich in einem Feld abgelegt? Es 
würde doch genügen, die benötigten Werte direkt aus den 
DATA-Zeilen zu lesen. Das ist prinzipiell richtig, aber wenn Sie 
Tabelle 1 von oben nach unten lesen, wird Ihnen auffallen, 
daß in der mittleren Spalte verschiede Werte fehlen. In der 
ersten Spalte, mit der Bezeichnung »Noten-Nummers, finden 
Sie aber 50 fortlaufende Nummern. Diese Nummern erlau- 
ben eine schnellere Berechnung der Akkorde. Dazu muß nur 
der Grundton des gewünschten Akkordes angegeben wer- 
den und schon wird der gesamte Akkord ausgegeben. 

Die Unterroutine zur Berechnung der Akkorde beginnt ab 
Zeile 40 und nennt sich »Akkord-Berechner«. Vor dem Aufruf 
dieser Routine muß die Notennummer in der Variablen P 
übergeben werden. Dabei darf P nur Werte zwischen 8 und 
50 enthalten. Weiterhin nimmt noch die Variable PO die ent- 
sprechenden Tonhöhen aus dem Feld N an. Dann wird der 
Akkord berechnet und die Tonhöhenwerte in den Variablen 
P1, P2 und P3 abgelegt. In Zeile 42 werden die vier Stimmen 
aktiviert. Stimme O ist dabei auf eine höhere Lautstärke 
gesetzt als die restlichen drei Stimmen des Akkords. 

Das Unterprogramm ab Zeile 30 ändert lediglich die Ton- 
höhe und springt daraufhin in die Verzögerungsschleife. In 
Zeile 70 sind alle vier Stimmen zunächst auf gleiche Laut- 
stärke gesetzt. Diese wird dann gleichmäßig zurückgenom- 
men, bis nichts mehr zu hören ist. 


Zeile 210 liest nun die Daten für LINE$, CHORD, P und 
WAIT. Der Inhalt von LINE$ wird auf dem Bildschirm ausgege- 
ben und anschließend das Unterprogramm ab Zeile 40 auf- 
gerufen. In dieser Routine steht also in LINE$ »Häns-chen 
klein - ging allein«, die Variable CHORD enthält nun den Wert 
49, P den Wert 30 und WAIT den Wert 30. 

Der in Listing 3 verwendete Algorithmus ist nicht für jedes 
Lied geeignet. Eventuellmüssen Sie einige Änderungen vor- 
nehmen. Schließlich gibt es verschiedene Tempi und nicht 
nur Dur-Akkorde. Das abgedruckte Programm zeigt ein Bei- 
spiel, wie man die entsprechenden Noten für Akkorde findet 
und so ein Lied komponiert. 

Laden Sie jetzt Listing 4. Dieses Programm spielt jeweils 
eine Tonleiter in Dur, Moll, und C-Dur vor. Begleitend erschei- 
nen die entsprechenden Listing-Zeilen auf dem Bildschirm. 
Sokönnen Sie sich auch ein Bild von der Programmiertechnik 
machen. 


GePOKEte Musik 


Mit den ersten sechs Programmen (Listing 1 bis Listing 6) 
hatten Sie die Gelegenheit, sich einen Eindruck davon zu ver- 
schaffen, was der SOUND-Befehl zu leisten vermag. Aller- 
dings gibt es einen noch viel besseren Weg, nämlich von 
Maschinensprache aus. Dann kann man die Fähigkeiten des 
Pokey-Bausteins, der für die Tonausgabe zuständig ist, voll 
ausnutzen; denn für manche Geräuscheffekte ist das Atari- 
Basic einfach zu langsam. Sie müssen aber nicht unbedingt 
auf Maschinensprache zurückgreifen, denn auch der POKE- 
Befehl kann die Sound-Register direktansprechen. Auf diese 
Art und Weise lassen sich dann noch viel wirkungsvollere 
Klangvariationen erzeugen. Listing 7 stellt ein solches Klang- 
beispiel vor. Zur Bedienung brauchen Sie lediglich einen Joy- 
stick. Schließen Sie diesen bitte an Joystickport 1 an. 

‚Auf dem Bildschirm erscheinen dann die Zahlen 53760 bis 
53768. Sie repräsentieren die Speicherstellen, die für die 
Tonausgabe zuständig sind. Nach dem Starten des Pro- 
gramms sind alle Adressen auf Null gesetzt. In der ersten 
Zeile befindet sich noch ein ” > "-Zeichen. Bewegen Sie es 
mit dem Joystick bis zur Zahl 53768, indem Sie den Joystick 
nach unten auslenken. Mit dem Feuerknopf verändern Sie die 
Speicherstelle. Dann brauchen Sie den Joystick nur nach 
vorne oder hinten zu bewegen. Hat die Adresse den 
gewünschten Wert erreicht, betätigen Sie nochmals die 
Feuertaste, und das ” > "-Zeichen kehrt zur ersten Zeile 


Bedeutung 


vo ‚Stimme O 
vi Stimme 1 
v2 ‚Stimme 2 
v3 ‚Stimme 3 
LH Tonhöhe 

D Verzerrung 
Vv Lautstärke 


Es gibt insgesamt vier Stimmen (VO bis V3). Diesen Variablen wird 
stets ein Wert zugewiesen, der sich dann während des Programm- 
laufs nicht mehr ändert. Sie erhalten folgende Werte: 


Tonhöhe, kann einen ganzzahligen Wert 
zwischen O und 255 annehmen 
Verzerrung, nimmt Werte zwischen O 
und 14 an 

Lautstärke, für diese Variablen sind 
Werte zwischen O und 15 zugelassen 
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zurück. »POKEn« Sie beispielsweise in die Adresse 53768 
den Wert 80, in Adresse 53760 den Wert 10 und in 53761 
einen beliebigen Wert. Anschließend wird der Lautsprecher 
Ihres Fernsehers oder Monitors aktiv. 

Die Speicherzelle 53768 ist der Schlüssel zu allem. Bele- 
gen Sie diese Speicherzelle auch einmal mit anderen Werten 
zwischen 0 und 255. Ändern Sie dann noch die Speicherzel- 
len 53760 und 53761. Wasistnun mit 53762 bis einschließ- 
lich 53767? Ändern Sie jetzt auch diese Speicherzellen. So 
können Sie sich auf experimentellem Wege einige gut klin- 
gende Geräusche aussuchen. 

Bevor Sie die POKE-Befehle in Basic anwenden, müssen 
Sie wissen, daß der Sound-Prozessor zunächst installiert 
werden muß. Dazu reicht es aus, am Anfang eines Pro- 
gramms den Befehl »SOUND 0,0,0,0« auszuführen. Weiterhin 
sind die Sound-Register des Atari-Computers nur für Zahlen- 
werte empfänglich. POKEtman beispielsweise in die Adresse 
53762 den Wert 10, erhält man nach »PEEK(53762)« nicht 
mehr denselben Wert. Warum dies so ist, istfür die Tonerzeu- 
gung nicht wichtig. Man muß nur wissen, daß man mit dem 
POKE-Befehl die Geräuscherzeugung beeinflussen kann. 
Tabelle 2 listet noch die englischen Bezeichnungen für die 
Sound-Register auf. 


Töne von sich zu geben im Stande ist. Auch Sie können sol- 
che Melodien komponieren, vorausgesetzt Sie haben die 
hier erläuterten Grundlagen verstanden. Aber auch in der 
Musikprogrammierung gilt das Motto: Übung macht den Mei- 
ster. 

Möchten Sie sich am Schluß noch eine wirklich meisterhaft 
umgesetzte Melodie anhören? Dann geben Sie noch Listing 9 
ein. Nachdem Sie das Programm gestartet haben, hören Sie 
die Melodie »Digi Loo, Digi Lee«. Das Programm wurde uns 
freundlicherweise von Kemal Ezcan zur Verfügung gestellt; 


Register Bezeichnung 
53760 Voice 0 Frequency 
53781 Voice 0 Control 
53762 Voice 1 Frequency 
53763 Voice 1 Control 
53784 Voice 2 Frequency 
53765 Voice 2 Control 
53766 Voice 3 Frequency 
53767 Voices Control 
53768 Audio Control 


Tabelle 2. Die Sound-Register 


Falls Sie ein Diskettenlaufwerk verwenden, wird am Ende erist einer der wenigen, die die Soundprogrammierung des 
automatisch Listing 8 geladen. Es demonstriert, daß der Atari wirklich perfekt beherrschen. Vielleicht machen Sie ihm 
Atari-Computer schon von Basic aus sehr wohlklingende bald Konkurrenz? (Peter Gerstner/wb) 

® REM.SOUND. 1 Einfuehrung 1802 FOR D=@ TO 14:POSITION 12,13:? "SOU 

(c) 1985 by Peter Gerstner 88/18/85 <sa> ND-@,121,1®,";D;"ı":SOUND V@,121,18,D:NE 

1 REM <UR> xTD <BI> 

2 REM <UR> 1828 FOR D=12 TO ® STEP -1:POSITION 12,1 

3 REM <US> 32? "SOUND-@,121,18,";D;".":SOUND Vv@,121 

1® VO=9:V1=1:V2=2:V3=3:DIM TYPEF(AD) „NS „1@,D:NEXT D <IB> 

2):60T0 109 <ED> 10352 WAIT-6@:G0SUB 5® <ER> 

5® POKE 542,WAIT <uY> 1248 FOR D-@ TO 14 STEP 2:POSITION 12,13 

52 IF PEEK(548)<>@ THEN 52 <au> =? "SOUND-@,121,18,";D;“A":SOUND V@,121, 

54 RETURN <ML> 1@,D:NEXT D <yı> 

60 FOR OFF-=@ TO 3:SOUND OFF,2,8,Q:NEXT O 186@ FOR D=12 TO ® STEP -2:POSITION 12,1 

FF=RETURN <KEN> 3:? "SOUND-@,121,18,";D;".":SOUND v@,121 

7@® LINE=LEN(TYPE$) :FOSITION HOR,VER <NG> „18,D:NEXT D:GOSUB 5@ <av> 

72 FOR ME=1 TO LINE:? TYPES(ME,MEISSIF T 1830 FOR D=14 TO ® STEP -2:POSITION 12,1 

YPES(ME,MEI="." THEN 76 <DL> 3? "SOUND-@,121,18,"3D;".":SOUND V@,121 

74 SOUND ®,25,4,6:FOR DECAY-6 TO 8 STEP „1@,D:NEXT D:G0SUB 5® <aB> 

-2.5:SOUND ®,1@,2,DECAY:NEXT DECAY <aX> 1102 FOR D=14 TO ® STEP -1:POSITION 12,1 

76 NEXT MEzRETURN <NZ> 3:7 "SOUND-@,121,1@,"3D;".":SOUND VQ,121 

128 GOSUB 21000: WAIT=6@ <uw> „1@,D:NEXT D:GOSUB 50 <ar> 

200 TYPES="Bitte.den.Begleittextfuer SO 1128 FOR D=14 TO ® STEP -0.5:POSITION 12 

UND. 12" :HOR=3: VER=9:G0SUR 78 <DL> „13:7? "SOUND-@,121,1@,"3 INT(DI3 "2": SOUND 

218 TYPEt="lesen.und.erst.die.START-Tast v@,121,1@,D:NEXT D:GOSUB 5@ <cv> 

esdruecken":HOR=1:VER=11:80SUR 78 <05> 1142 FOR D=14 TO ® STEP -®.2:POSITION 12 

22@ TYFE$="wenn.es-im.Text.verlangt-wird „15:7? "SOUND-@,121,1®,"; INT (DI; " "SOUND 

<Tv> v2,121,1@,DzNEXT D:GOSUB 58 Szv> 
AXK> 1162 POSITION 12,1 "SOUND-@,121,10,1@ 

708 TYPES="SOUND-Befehl-fuer“das“mittler ":SOUND 8,121,18,1@:WAIT-2@:G0SUR SB <um> 

e='C’.=":HOR=3: VER=7:60SUB 78:60SURB 58 <06> "SOUND.2,121,18,0= 

72® POSITION 12,13:7 "SOUND4@,121,18,8' <3v> 

SOUND ®,121,10,8:60SUB S@:60SUB 62 <16> 

748 LINE=720:G0SUB 22888 <ua> 

788 TYPES="SOUND-„mit.variabler.LAUTSTAE <NP> 

RKE" :HOR=4: VER=7:SOSUR 78 <mo> 

828 FOSITION 12,13:7 "SOUND.B,6@,18,8" <Az> ":60SUB 68:G0SUB 5@:NEXT ME:WAIT=60:60SU 

848 FOR D=® TO 14:POSITION 12,1 "SOUN B 50 <EP> 

DA8,121,18,";D;".":SOUND V2,121,1@,D <NM> 1248 FOR ME=1 TO S:POSITION 12,1 "Sau 

868 WAIT=2@:GOSUB S@:NEXT D <DD> NDA@,121,10,1@":SOUND 2,121,12,1@ <TN> 

888 FOR D=13 TO @ STEP -1:POSITION 12,13 126@ POSITION 12,1 "SOUND«@,121,10,0, 

2? "SOUND-@,121,18,";D;".":SOUND V@,121, ":60SUB 6B:NEXT ME:WAIT=60:GOSUB 5@ <MZ> 

18,D <LV> 1390 LINE=820:G0SUB 22808 AYP> 

780 WAIT=28:G0SUR 50:NEXT D:WAIT=68:G0SU 1568 TYPES="SOUND-mit.variabler TONHDEHE 

eo <an> ":HOR=6:VER=7:G0SUB 78 <mR> 

92® FOR D=® TO 14:POSITION 12,13:? “SDUN 

D«8,121,10,";D;".":SOUND V2,121,1@,D <NI> 

9748 WAIT=18:G0SUR S@:NEXT D <ca> <0Z> 

960 FOR D=13 TO @ STEP -1:POSITION 12,13 1428 FOR P=255 TO @ STEP -1:POSITION 12, 

:? "SOUND-@,121,1@,"5D;"2":SOUND V@,121, 13:7 "SOUND-®,";P5",10,8x2":SOUND 8,P,18 

18,D <LS> %: 2 5 B 

988 WAIT=1B:GOSUR S@:NEXT D:WAIT=60: S0SU Listing 1. Einfache Beispiele mit dem SOUND-Befehl. Bitte 

B 58 <IG> mit dem Namen »D:SOUND.12« auf Diskette speichern. 


il. 
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„BzNEXT P <EU> RILCTL RILCTL RILCTL RILCTL RICCTL RISCT 
144@ FOR P-® TO 255 STEP S:POSITION 12,1 L RILETL RILCTL RIXCTL RILCTL RILCTL RIT 
3:7 "SOUND-@,";P5",18,8..":S0OUND @,P,1®, ETL RILCTL EI" <AT> 
S:NEXT P <DD> 2002@ 7 „"XSHIFT =}.DrueckesSTART-fuern 
1468 FOR P=255 TO 8 STEF -S:POSITION 12, eiter.{SHIFT =)" <PW> 
1 "SOUNDA@,";P;" ,10,842":SOUND ®,P,1@ 20030 ? „"ICTL ZILCTL RILCTL RITCTL RITC 
„BzNEXT P <IK> TL RICCTL RILCTL RICTL RICCTL RICCTL R> 
14892 FOR P=® TO 258 STEP 18:POSITION 12, KCTL RILCTL RILCTL RILETL RICCTL RISCTL 
1 "SOUND-@,";P5",10,8.2":SOUND 8,P,1® RILCTL RILCTL RILCTL RILCTL RILCTL RICCT 
NEXT P <EK> LRILCTL RILCTL RICCTL RILCTL RIECTL RIC 
158@ FOR P-25@ TO @ STEr -ı ETL RICTL C3" <EW> 
„13:? "SOUND.@,"3P5",10,822"2SOUND @,P,1 20040 IF PEEK(53279)=6 THEN POKE 755,2:R 
,8:NEXT P <mG> ETURN <BO> 
152@0 POSITION 12,13:7 "SOUND-®,0,0,B..." 205@ POKE 755,3:POKE 755,2:PET=8:6010 2 
:G0SUB &@:LINE=1400:G0SUB 22008 <CB> 2040 <NR> 
1568 TYPE$="SOUND-„mit-variabler":HOR=1@ 21000 GRAPHICS B:SETCOLOR 2,9,8:SETCOLOR 
:VER=5:G0SUB 78 <KT> 4,9,8:SETCOLOR 1,9,12:POKE 752,1:POKE 8 
1580 TYPE$="TONHOEHE -und.LAUTSTAERKE" :HO 2,2:POKE 83,39:POKE 291,8 <INn> 
R=8: VER=7:60SUB 7@:WAIT=6@:BOSUB 5: REST 21010 ? „"£CTL @ILCTL RILCTL RILCTL RITC 
ORE 1688 <uX> TL RILCTL RICCTL RICCTL RILCTL RIXCTL RI 
1600 DATA.60,53,47,45,40,35,31,29,29,31, £CTL RILCTL RICCTL RILCTL RILCTL RILCTL 
35,40,45,47,53,68 <EE> RILETL RILCTL RILCTL RICCTL EI" <am> 
162@ FOR ME=1 TO 16:READ P:FOR V=14 TO ® 21020 7 „"(SHIFT =)ıDer SOUND“Befehl {SH 
STEP -2:POSITION 12,13:7 "SOUND-@,";P5;" IFT =)" sıv> 
„1Q,";5V;"2":SOUND @,P,10,V <As> 21038 7 „"LCTL ZILCTL RILCTL RICCTL RITC 
1648 NEXT V:WAIT=18:G0SUB S@:NEXT ME:RES TL RILCTL RILETL RILCTL RICCTL RICCTL RY 
TORE 1668 SYR> SCTL RILCTL RIYLCTL RILCTL RILCTL RICCTL 
1668 DATA.243,193,162,121,96,81,60,47,4@ RILCTL RILCTL RILCTL RICCTL CI” <UH> 
»29,23,19,14,14,19,235,29,48,47,68,81,96, 21048 POKE 77,8: RETURN <AK> 
121,162,193,243 <BR> 2110@ GRAPHICS @:SETCOLOR 2,9,8:SETCOLOR 
1688 FOR ME=1 TO 26:READ P:FOR v=-14 TO 8 4,9,8:SETCOLOR 1,9,12:POKE 752,1:POKE 8 
STEP -2:POSITION 12,15:? "SOUND-B,";P;" 2,2:POKE 83,39:POKE 2@1,11 <vD> 
„18,"3V3".":SOUND @,P,10,V <cc> 21110 ? „"CTL @KLCTL RILCTL RICCTL RICC 
1690 NEXT V:WAIT=1@:GOSUB S@:NEXT ME <BI> TL RILCTL RILCTL RIECTL RILCTL RICCTL R? 
1708 RESTORE 160®:LINE=1628:GOSUB 22008 <NX> SCTL RILCTL RILCTL RILCTL RILCTL E3* <ma> 
2000 REM <5Z> 2112@ ? „"tSHIFT => BASIC.MUSIKASHIFT = 
2001 REM <TD> % <19> 
28922 REM SOUND.2 BASIC-MUSIK <XB> 21130 ? „"£CTL ZICTL RILCTL RILCTL RICO 
2003 REM <TL> TL RILCTL RILCTL RILCTL RILCTL RIXCTL RI 
2004 REM <IP> SCTL RILCTL RILCTL RILCTL RILCTL C3” <ov> 
205® RESTORE 2108 <IL> 21148 POKE 77,8:RETURN <AN> 
2108 DATA-14,15,16,17,18,19,21,22,23,24, 22000 POSITION 2,19:POKE 201,5:POKE 752, 
26,27,29,351,33,35,37,40,42,45,47,58,53,5 ı <Wm> 
7,68,64,68,72,76,81,85,91,76 <WE> 22010 ? „"{CTL @PLCTL RILCTL RICCTL RICC 
211® DATA.102,108,114,121,128,136,144,15 TL RIICTL RYECTL RIECTL RILCTL RISCTL RI 
3,162,173,182,193,2@4,217,230,243,255 <XI> SCTL RILCTL RILCTL RILCTL RILCTL RILCTL 
212® GOSUB 211@@:FOR X=1 TO S@:READ IT:N RILCTL RILCTL RICCTL RICCTL RILCTL RILCT 
CXI=ITENEXT X <xu> L RIICTL RILCTL RICCTL RILCTL RILCTL EI" <XZ> 
2130 TYPEF="Lesen.Sie.bitte.im.Text-weit 22015 ? „"{SHIFT =).OPTION“=..Wiederholu 
VER-=9:60SUB 7@ <66> ng=={SHIFT =)" <uv> 
2148 TYPE$="druecken.Sieserst“die.START- 22020 ? „"{SHIFT =IASTARTau=nuMeiteraunn 
<vo> anantSHIFT =)" <IE> 
wennsesimTextıverlangt«wir 22030 ? „"{CTL ZIECTL RIKCTL RILCTL RICC 
VER=13:60SUB 78 <cT> TL RILCTL RILCTL RILCTL RICCTL RILCTL RI 
2280 GOSUB 20002:G0SUR 21108 <HV> <ETL RILCTL RILCTL RILCTL RILCTL RILCTL 
2308 LIST 231@ <ac> RILCTL RILCTL RILCTL RILCTL RILCTL RICCT 
231® FOR P=1 TO S®:FOR v-15 TO @ STEP -3 LRILETL RICCTL RICCTL RICCTL RICCTL C9" <Z6> 
:SOUND @,N(P) „10,V:NEXT VENEXT P <EN> 22040 IF PEEK(53279)=6 THEN POKE 755,2:6 
232@ IF LINE<>231@ THEN ? :LIST 2338 <a0>. OSUB 21000: RETURN <Tv> 
2338 FOR P=5@ TO 1 STEP -1:FOR Ve15 TO 8 22050 IF PEEK(53279)=3 THEN POP :POKE 75 
STEP -3:SOUND &,N(P) ‚1@,V:NEXT VENEXT P <YM> 5,2:POSITION 2,19:? "{ESC SHIFT DELICESC 
2535 IF LINE=2318 THEN 2408 <QE> SHIFT DELI{ESC SHIFT DEL?LESC SHIFT DEL 
2400 LINE=2310:G0SUB 22008 <yP> 3";:60T0 LINE <ow> 
250® RUN "D:SOUND.S":REM CASSETTEN BENUE 22060 POKE 755,3:POKE 755,2:60T0 22040 <XL> 
TZER MUESSEN HIER GRAPHICS @:END ANSTATT 25000 POSITION 2,15:7 "{ESC SHIFT DELITE 
RUN"D:SOUND.3" EINGEBEN <BX> SC SHIFT DELITESC SHIFT DELIKESC SHIFT D 
20000 POSITION 2,2@:POKE 2@1,4:POKE 752, ELITESC SHIFT DELYLESC SHIFT DEL}"3:RETU 
1 SPR> RN <mz> 
Z@B10 ? „"£CTL QILCTL RICCTL RICCTL RIIC A 
TL_ RILCTL RICETL RILCTL RILCTL RICCTL R> Listing 1. Einfache Beispiele mit dem SOUND-Befehl. 
KCTL RILCTL RILCTL RYLCTL RITCTL RICCTL (Schluß) 
@ REM SOUND.3 < NECHORD-7) <PV> 
c) 1985 by Peter Gerstner 18/19/85 <RB> 42 SOUND V@,P@,19,14:SOUND V1,P1,18,6:50 
1 REM <UQ> UND v2,P2,10,6:SOUND V3,P3,10,6 <FX> 
2 REM <UR> 5@ POKE 548,WAIT <vyY> 
3 REM <us> 52 IF PEEK(5498)<>@ THEN 52 <ou> 
1@ DIM LINES(48) ‚N(59) :V9=@:Vi= 54 SOUND V0,2,8,@:RETURN <6c> 
=3:6070 198 <TI> 
32 SOUND VO,N(P) ,10,14:60T0 5@ <YOo> Listing 2. Ein Lied zum Mitsingen. Bitte mit dem Namen 


48 PO=N(P) :P1=N (CHORD) :PZ=N (CHORD-4) :P3= 


»D:SOUND.3« auf Diskette speichern. 
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68 FOR OFF=® TO 3:SOUND OFF,2,8,@:NEXT 0 
FFZRETURN 

78 PO=N(P) :PI=N(CHORD) : P2=N (CHORD-4) =P3= 
NCHORD-7) 

72 FOR DECAY=8 TO @ STEP -1:SDUND VB,PD, 
1@,DECAY=SOUND V1,P1,1@,DECAYzSOUND V2,P 
2,1@,DECAYz:SOUND VS,PS,1®,DECAY 

74 NEXT DECAY:RETURN 

108 DATA-B,14,15,16,17,18,19,21,22,25,24 
126,27,29,31,33,35,37,40,42,45,47 50,55, 
57,68,64,68,72,76,81,85,91,96 

110 DATA.102,198,114,121,128,156,144,153 
„162,173,182,193,2@4,217,23@,243,255 

120 GOSUB 21090:FOR X-@ TO S@:READ IT=:Nt 
X)=ITzNEXT X 

208 FOKE 82,4:? ".":7 

21® READ LINES,CHORD,P,WAIT:? LINES:GOSU 
B 40 

228 FOR ME=1 TO 2:READ P,WAIT:GOSUB 39:N 
EXT ME:GOSUB 60:WAIT= 
223 READ CHORD,P,WAIT:GOSUB 48 

225 FOR ME=1 TO 2:READ P,WAIT:GOSUB 30:N 
EXT ME:BOSUB 68:WAIT-18:G0SUB 58 

23@ READ LINE$,CHORD,P,WAIT=:? =? LINES:G 
OSUB 40 

24@ FOR ME=1 TO 6:READ P,WAIT:GOSUB 3@:N 
EXT ME:GOSUR 6B:WAIT=3B:GOSUB 5@ 

250 READ LINE$,CHORD,P,WAIT:? :? LINE$:G 


OSUR 48 

260 FOR ME=1 TO 2:READ P,WAIT-GOSUB 3@:N 
EXT ME:GOSUR 6B:WAIT=19:G0SUR 58 

263 READ CHORD,P,WAIT:GOSUB 48 

265 FOR ME=1 TO 2:READ P,WAIT:BOSUB S@:N 
EXT ME:GOSUB 68:WAIT=19:G0SUB 58 


270 READ LINE$,CHORD,F,WAIT:? :? LINES:G 
OSUB 40 

288 FOR ME=1 TO 4:READ P,WAIT:GOSUB 3B:N 
EXT ME:GOSUB 6B:WAIT=3B:GOSUB 5® 

290 READ LINEF,CHORD,P,WAIT:? :? LINE$:G 
DSUB 40 

392 FOR ME=1 TO &:READ P,WAIT:GOSUB SB:N 
EXT ME 

32® READ LINE$,CHORD,P,WAIT:? =? LINES:G 
GSUR 40 

330 FOR ME=1 TO S:READ P,WAIT:GOSUB 3®:N 
EXT ME 

350 READ LINES,CHORD,P,WAIT:? :? LINES:G 
OSUB 48 

368 FOR ME=1 TO 2:READ P,WAIT:GOSUB S@:N 
EXT ME 

363 READ CHORD,P,WAIT:GOSUB 48 

365 FOR ME=1 TO 2:READ P,WAIT:GOSUB 3®:N 
EXT ME 

38@ READ LINE$,CHORD,P,WAIT:? :? LINES:G 
OSUB 48 

39@ READ P,WAIT:SOSUR 32 

40@ READ CHORD,P,WAIT:GOSUR 48 

418 READ P,WAIT:GOSUB 3® 

428 READ CHORD,P,WAIT:GOSUB 48 

430 READ P,WAIT:GOSUB 5@ 

44@ READ CHORD,P,WAIT:GOSUB 48 

450 SUSUB 6Q:WAIT=19:G0SUB S@:FOR DECAY= 
15 TO ® STEP -9.5:SOUND V@,N(1) ,18,DECAY 
:NEXT DECAY 

468 GRAPHICS 18:7 #6:7? #65" aunndursakkor 
de" 

518 FOR ME=1 TO 8:READ CHORD,P,LINE$:POS 
ITION ME#2,1B-ME:? #6; LINES:GOSUB 7@:NEX 
Tme 

538 FOR ME=8 TO 1 STEP -1:READ CHORD,P,L 
INE$:FOSITION ME*2,10-ME=? #651 INE$:GOSU 
B 70:NEXT ME 

540 WAIT=15:60SUB 5@: POSITION S,11:? #65 
"DRUECKE" 

55@ FOR DECAY=15 TO @ STEP -@.5:SOUND vo 
‚N(6) „10,DECAY=NEXT DECAY 

368 WAIT=15:60SUB 5@:POSITION 11,11:7 #6 
3"START" 

57@ FOR DECAY=15 TO ® STEP -2.5:SOUND va 
„Nt1) „10,DECAY:NEXT DECAY 

600 SETCOLOR B,PEEK (28) ‚1B:IF PEEK (53279 
)<>6 THEN 6aQ 

685 RESTORE 22008 


<PY> 


<xP> 
<xI> 
<ay> 
<FP> 


<AB> 
<CH> 


<SB> 


<LE> 
<Zr> 


<LT> 
<YB> 
<55> 
<YF> 


<um> 
<ZN> 


<MB> 
<Ya> 
<RS> 
<YN> 
<vF> 
var 
<WT> 
<YB> 


<TB> 
<z0> 


<Ta> 


<ym> 
<mm> 
<YU> 
<LX> 
<yY> 
<mB> 
<ZC> 


<IK> 


618 FOR L=1 T0 5 

628 GOSUB 21808 

63@ READ X,YzLIST X,Y 
saQ 

658 


655 

668 READ X,YzLIST X,Y 

665 NEXT L 

672 60SUB 29000 

708 GRAPHICS 18:SETCOLOR 8,1,18:SETCOLOR 
1,11,12:SETCOLOR 3,4,12 


748 IF PEEK(5327N=3 THEN RUN 

758 IF PEEK(53279)=6 THEN 908 

768 6010 748 

988 RUN "D:SOUND.4": REM CASSETTEN BENUET 
ZER MUESSEN HIER SRAPHICS @:END EINGEBEN 
ANSTELLE RUN "DzSOUND. 4" 

1098 DATA.Haens-chen.klein.——.gingsal-le 
in 

1810 DATA.49,18,38,21,30,21,6@,42,20,30, 
23,38,25,68 

1828 DATA-in“A-ta-risıSOUND-hin-ein 

1059 DATA.49,25,30,23,30,21,30,20,30,18, 
30,18,38,18,68 

1948 DATA-Sound“mitPOKEx——dasaklingtt 
oll 

1058 DATA.49,30,30,33,30,33,68,42,32,30, 
35,39,35,68 

1960 DATA-al-les.wohlaund.voll 

1870 DATA.49,37,30,33,30,30,30,50,30,37, 
128 

1882 DATA«Reicht„derzachtBit«SOUND«nich 
taaus 

1898 DATA.42,35,30,35,30,35,350,35,30,35, 
30,33,39,32,68 

1108 DATA.mach-en-wir.sech-zehn-Bit-da-r 
aus 

111® DATA-49,33,15,33,15,33,30,33,15,33, 
15,33,15,32,15,30,38,2,68 

1128 DATAxWirssindafita—tolladersTric 
k 

113® DATA.49,30,30,33,30,33,60,42,32,38, 
35,39,35,68 

1149 DATA-Vielen.Dank-dem.PO-KEY«Chip«... 


115@ DATA.49,25,15,26,15 
116@ DATA.44,28,30,32,38 
1170 DATA-42,26,30,32,30 
1188 DATA.49,25,9@ 

1280 DATA-49,37,C 

1218 DATA.47,35,D 

1228 DATA-45,33,E 

1230 DATA-A4,32,F 

1248 DATA-42,30,6 

125® DATA.48,28, 
1268 DATA.I8,26,B 

1278 DATA.37,25,C 

1398 DATA.I7,25,c 

131@ DATA.38,26,b 

152@ DATA-48,28,a 

1332 DATA-42,30,9 

1348 DATA44 ,32,# 

135® DATA.45,35I,e 

1368 DATA-47,35,d 

137@ DATA.49,37,c 

20008 POSITION 2,2@:POKE 281,4:POKE 752, 
1 

20818 ? „"ÄCTL BILCTL RILCTL RICCTL RITC 
TL RILCTL RILCTL RICCTL RICCTL RICCTL R> 
LETL RILCTL RILCTL RILCTL RICCTL RILCTL 
RILETL RILCTL RICCTL RILCTL RIICTL RILCT 
L RIZCTL RILCTL RILCTL RIECTL RILCTL RIC 
ETL RIZCTL Er” 

280828 ? „"{SHIFT =) .DrueckesSTART“fueram 
eiter_{SHIFT =>" 

2WAS@ ? ‚"CTL ZILCTL RILCTL RILCTL RICO 
TL RILETL RILCTL RICCTL RICCTL RIECTL RI 


Listing 2. Ein Lied zum Mitsingen. (Fortsetzung) 


<av> 
<T6> 
<DL> 
<sY> 
SEF> 
<om> 
<DR> 
<IR> 
<TE> 


<yo> 


<HR> 
<HV> 


<FO> 
<MR> 
<IW> 
S<PY> 


<5X> 
<XL> 


<Ic> 
<NI> 


<HD> 
<TP> 


<zXx> 
<EW> 


<KC> 
<TB> 
<FM> 
<Q@E> 
<Fm> 
<HO> 
<ZT> 


<BC> 
<OoN> 
<EP> 
<DA> 
<CX> 
<HB> 
<FT> 
<EL> 
<EE> 
<CW> 
<Ccr> 
<FC> 
<EvV> 
<ZA> 
<ZN> 
<WW> 
<XT> 
<ZH> 
<ZU> 
<BI> 
<CH> 


<PR> 


<AT> 


<PW> 


SR 


125 


<CTL RIZCTL RILCTL RILCTL RYLETL RISCTL 
RILETL RICCTL RILCTL RILCTL RILCTL RICCT 
L RIZETL RILCTL RICCTL RILCTL RICCTL RIC 


= <aA> 
21@2@ ? „"{SHIFT => BEGLEITUNG-MITADUR.A 
KKORDEN„(SHIFT =>" <KI> 


208 FOR X=15 TO S®:SOUND @,NCX) ‚1@,14:S0 
UND 1,NCX-4) „18,6:SOUND 2,N(X-7) ‚10, 
UND 3,N(X-12) „18,6 

21® GOSUB &B:NEXT X 

215 IF LINE<>20® THEN ? :LIST 220,230 
22@ FOR X=5® TO 13 STEP -1:SOUND Q,NCX), 
18,14:SOUND 1,N(X-4) „1@,6:SOUND 2,N(X-7) 
„18,6:SOUND 3,N(X-12) „18,6 

230 GOSUB 6B:NEXT X 

240 LINE=200: 60SUB 22000 

250 TYPES="MOLL=AKKORDE: " : HOR=14: VER=6:6 
OSUB 70:60SUB S@:? :LIST 260,278 

26® FOR X=13 TO 5@:SOUND @,N(X) ‚18,14:S0 
UND 1,NCX-3) „10,6:SOUND 2,N(X-7) ,1@,6:50 
UND 3,N(X-12) „18,6 

27® GOSUR 6Q:NEXT X 

280 IF LINE<>268 THEN ? :LIST 298,308 
290 FOR X=5@ TO 13 STEP -1:SOUND @,N(X) , 
19,14:SOUND 1,N(X-3) „10,6:SOUND 2,N(X-7) 
„12,6:SOUND 3,N(X-12) „18,6 

30@ GOSUB SQ:NEXT X 

312 LINE=260:G0SUB 22088 

32@ X=49 

338 TYPES="CADUR" :HOR=17: VER=6:G0SUB 78: 


SOUND @,NCX) „1@,14:SOUND 1,NCX- 
4) ,10,6:SOUND 2,N(X-7) ,10,6:SOUND 3,NCX- 
12) „18,6 

35® WAIT=60:605UB 50: G0SUB 68 

36@ IF LINE<>S4B THEN TYPES="C.MOLL":HOR 
=17:VER=12:G0SUB 7@:60SUB 5®:? :LIST 37® 


ETL RILCTL 9" <BW> 2103@ ? „"{CTL ZIXCTL RYLCTL RILCTL RYCC 
20940 IF PEEK(53277)<>6 THEN 20048 <VY> TL RILCTL RILCTL RILCTL RISCTL RI{CTL R3 
28050 RETURN <TS> <CTL RILCTL RYLCTL RILCTL RILCTL RILETL 
219020 GRAPHICS ®:SETCOLOR 2,9,9:SETCOLOR RILCTL RIXCTL RILCTL RILCTL RILCTL RICCT 
4,7,8:SETCOLOR 1,9,12:POKE 752,1:POKE 8 L RIKCTL RILCTL RILCTL RI{CTL RYLCTL R3T 
‚2:POKE 85,59:POKE 201,3 <01> CTL RILETL RILCTL RILCTL-CY" <HM> 
2101® POSITION 2,8:? „"{CTL @ILCTL RIXCT 21040 POKE 77,@:RETURN <AK> 
U RILCTL RICCTL RILCTL RICCTL RILCTL RIT 22080 DATA.®,12,100,120,21000,21040,100, 
ETL RILCTL RILCTL RILCTL RILCTL RICCTL R 219,30,74,210,220,40,54,1000,1018 <RZ> 
FLCTL RICCTL RYCETL RICCTL RICCTL RILCTL 

RILCTL RILCTL RILCTL RICCTL RILCTL RITC 
TL RILCTL RYLCTL RILETL RILCTL RYLCTL Er} Listing 2. Ein Lied zum Mitsingen. (Schluß) 
® REM SOUND.4 fi :? <Du> 
c) 1985 by Peter Gerstner 11/19/85 <UE> 37@ X=49: SOUND ®,NCX) „10,14:SOUND 1,N(X- 

1 REM <ua> 3) „1@,6:SOUND 2,N(X-7) ,18,6zSOUND 3,N(X- 

2 REM <UR> 12) ‚18,6 <vT> 
5 REM <us> 38® WAIT=6@:G0SUB S5@:G0SUB 68 <IF> 
19 DIM TYPES(4Q) ‚N(50) VB=0: Vi=1:V2=2:V3 398 LINE=349:G0SUB 22008 <UE> 
=3:POKE 82,2:? "(EST CTL -)":60T0 188 <PD> 408 TYPES="OK,“zurueck«zum normalen SOUN 

S® POKE S40,WAIT <uv> D":HOR=5: VER=6:60SUB 7% <XT> 
52 IF PEEK(S48)<>® THEN 52 <au> 41® TYPE$="Befehl undkmachen-einen«Vergl 

54 RETURN <ML> eich. ":HOR=3: VER-8:60SUB 78:60SUB S® <uT> 
60 FOR DFF=® TO 3:SOUND OFF,®,0,@:NEXT O 428 TYPE$="Diestiefste.Note.die.wir-mit" 
FF:RETURN <KN> :HOR=6: VER=-18:60SUB 70 <RM> 
78 LINE=LEN(TYPE$) :POSITION HOR,VER <NG> 438 TYPES="mit.DISTORTION.19.bekommen.ko 

72 FOR ME=1 TO LINE:? TYPES(ME,MEIS=SIF T ennen,":HOR=3:VER=12:G0SUB 70: G0SUE SO <WW> 
YPES(ME,MEI="." THEN 76 <DL> 435 TYPE$="ist.ein.tiefes."B’.":HOR=11:V 

74 REM SOUND 0,25,4,6:FOR DECAY=6 TO @ S ER-14:S0SUB 78:60SUR 5® <LT> 
TEP -8.5:SOUND 0,10,0,DECAY:NEXT DECAY <AG> 448 TYPE$="SOUND„V@,255,18,8":HOR=12:VER 

76 NEXT ME:RETURN <NZ> =16:G0SUB 70:50SUB 6B:SOUND V9,255,18,8: 

182 DATA.14,15,16,17,18,19,21,22,23,24,2 , SOSUB S@:S0SUR 68 <FV> 
6,27,29,31,33,35,37,40,42,45,47,5@,53,57 458 GOSUB 2O092:60SUB 21000 <xa> 
,60,64,68,72,76,81,85,91,96 <uw> 5@2 TYPES="Vergleichen«wir nun -zweixSoun 

11@ DATA.102,1@8,114,121,128,136,144,153 ds... ":HOR=4: VER-6:G0SUR 78:60SUB S5@ SXF> 
»162,173,182,193,284 ,217,230,243,255 <FP> S1@ TYPE$S="SOUND-V@,255,18,8" :HOR=12: VER 

12@ GOSUB 210®8:FOR X=1 TO S@rREAD IT:Nt =8:60SUR 7@:60SUB 5@ <IE> 
XI=ITZNEXT X <ay> 528 SOUND v8,255,18,8:60SUB S2:G0SUB 60: 

138 TYPE$="Bitte.den.Begleittext.fuer.s0o SCSUB 5® <ys> 
UND. 4x" : HOR=3: VER=9:6DSUR 78 <cz> 530 TYPE$="SOUND-V@,33,12,8":HOR=12: VER= 

148 TYPE$="lesen.undserst-die«START-Tast 18:60SUB 79:60SUB 5® <MF> 
esxdruecken" :HOR=1:VER=11:60SUB 7@ <ax> 549 SOUND V8,33,12,8:60SUB 59:G0SUB 60:6 

158 TYPE£="wenn.es-im.Text“verlangt«wird OSUR 5® <va> 
-"zHOR=5: VER=13:B0SUB 7@ <uA> 55@ TYPE$="Die«Tonqualitaet.ist“verschie 

168 GOSUB 20009: G0SUB 21008 <XP> denzaber ":HOR=2: VER=12:G0SUB 78 <AD> 
19@ TYPE$="DURAAAKKORDE: " : HOR=14: VER=6:6 568 TYPE$="diesaktuelle-PITCHxist.das“gl 

DSUB 70:G0SUB 50:7 IST 208,218 <HF> eiche-B. ":HOR=2: VER=14:S0SUR 70:G0SUB S@ <UZ> 


578 POSITION 12,8:7 "SOUND.V@,255,1@0,8": 
POSITION 12,1@0:? “SOUND-VB,SS,12,8":SOUN 


D v9,255,10,8 SKF> 
S8® GOSUB S@:G0SUB 60:G0SUR 59: POSITION 
2,8:7 "SOUND-V,255,190,8" <Yo> 


S59@ POSITION 12,1@:? "SOUND.VQ,33,12,8 
SOUND V2,33,12,8:60SUB 5@:605UB 69: GOSUR 
s® 


6@® POSITION 12, "SOUND-V9,255,1@,8": 
SOUND V0,255,10,8:POSITION 12,1@:? "SOUN 
D-V1,33,12,8":SOUND V1,33,12,8 <NS> 
819 GOSUB S®:G0SUB &B:LINE=570:G0SUB 22@ 

20 <vz> 
628 TYPE$="Wirskoennen„mit“DISTORTION.12 
":HOR=S5: VER=6:GOSUB 72 <RI> 
638 TYPE$="anstatt_DISTORTION.1®.nochati 
efere" :HOR=3: VER=-8:G0SUB 70:G0SUB S® <NE> 
635 TYPE$="BASS.NOTEN“bekommen. ":HOR=11: 
VER=18:60SUB 7@:50SUB S® <SP> 
640 TYPE$="ZUM.BEISPIEL: " :HOR=14: VER=12: 
GOSUB 7@:60SUB 5@ <va> 
708 DATA225,27,28,30,31,33,36,37,4@0,42,4 
5,48,51,52,57,60,63,67,72,75,82,85,98,97 

‚102 <EN> 
71® FOR BASS=1 TO 25:READ P@:FOR DECAY=1 

5 To 8 ster -ı <ar> 
72@ POSITION 12,14:7 "SOUND.VB,";PQ;",12 
„"3DECAY; ".":SOUND va,P@,12,DECAY:NEXT D 
ECAY:NEXT BASS <IH> 
Listing 3. Verschiedene Akkorde. Bitte mit dem Namen 
»D:SOUND.4« auf Diskette speichern. 
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[ 75a RESTORE 788:LINE=71@:G0SUB 22008 


<cB> TL RILCTL RICCTL RIICTL RIKCTL RICCTL RI 
880 TYPE$="Das-naechste.Programm-erlaubt LETL RILCTL RILCTL RILCTL RILCTL RICCTL 
uns”: HOR=4: VER=6:S0SUB 7® <XP> RICETL RILCTL RILCTL RICCTL E3 <am> 
818 TYPE$="verschiedeneSoundssanzuhoere 21020 ? „"{SHIFT =}“Der“SOUND-Befehl {SH 
n, wenn" zHOR=3: VER=8: GOSUB 7@ <DK> IFT = <ıv> 
820 IYPES="wir-mit“den„Joystick=PITCH, AV 21@39 ? „"ICTL ZILCTL RICCTL RICTL RIIC 
OLUME , ": HOR=3: VER=19: G0SUB 7@ <xa> TL RIECTL RICCTL RILCTL RICCTL RICCTL R> 
830 TYPE$="und_DISTORTION“veraendern.":H SCTL RILCTL RILCTL RILCTL RILCTL RILCTL 
OR=7: VER=12:B0SUB 78: GOSUB 20000 <Do> RILETL RIICTL RILCTL RILCTL C3" <LH> 
848 RUN "D=SOUND.S":REM CASSETTEN BENUET 21®4® FOKE 77,0:RETURN SAK> 
ZER MUESSEN HIER GRAPHICS @:END EINGEBEN 22002 POSITION 2,19:POKE 2@1,5:POKE 752, 
ANSTELLE VON RUN "D:SOUND.S" <RB> 1 WW > 
20002 POSITION 2,20:POKE 2@1,4:P0KE 752, 22818 7 „"XCTL O@YLCTL RILCTL RICCTL RITC 
1 <PR> TL RILCTL RILCTL RITCTL RIKCTL RICCTL RI 
20@1@ ? „"LCTL DICCTL RILCTL RILCTL RICC XCTL RILCTL RICCTL RILCTL RILCTL RICCTL 
TL RILCTL RILCTL RIICTL RILCTL RILCTL RI RILCTL RILCTL RILCTL RYLCTL RILCTL RICCT 
LCTL RILCTL RILCTL RILCTL RILCTL RILCTL L RILCTL RICCTL RITCTL RILCTL RICCTL EI" <XZ> 
RILCTL RILCTL RILCTL RICCTL RICCTL RICCT 22015 ? „"{SHIFT =JAOPTION“=ıWiederholu 
LRIECTL RICCTL RICCTL RILCTL RIECTL RI Ng=={SHIFT =}" <uv> 
ETL RITCTL EI* <AT> 22020 ? „"{SHIFT =I2START-.=..Weiterauaa 
20020 ? „"tSHIFT =) Druecke-START-fuer-w aaantSHIFT =)" <IJE> 
eiter{SHIFT =)" <PW> 22030 ? „"ICTL ZILCTL RIECTL RILCTL RICC 
2003@ ? „"CTL ZILCTL RILCTL RIKCTL RICC TL RILCTL RILCTL RILCTL RILCTL RICCTL R> 
TL RILCTL RILCTL RICCTL RILCTL RILCTL R> CCTL RILETL RICCTL RILCTL RICCTL RICCTL 
SCTL RILCTL RILCTL RICCTL RICCTL RICCTL RILCTL RILCTL RILCTL RICCTL RICCTL RICCT 
RILCTL RICCTL RIECTL RICCTL RICCTL RICCT L RILCTL RIKCTL RICCTL RICCTL RICCTL C>" <Z6> 
L RILCTL RILCTL RILCTL RIECTL RICCTL RIC 22040 IF FEEK(53279)=6 THEN FOKE 755,2:6 
ETL RILCTL CH" <EW> OSUB 21808: RETURN <ıv> 
20048 IF PEEK(53279)<>6 THEN POKE 755,3: 22050 IF PEEK(53279)=3 THEN FOP :FOKE 75 
POKE 755,2:60T0 20040 sw> 5,2:FOSITION 2,1927 "{ESC SHIFT DELI{ESC 
20050 POKE 755,2: RETURN <C5> SHIFT DELI{ESC SHIFT DELITESC SHIFT DEL 
21000 GRAPHICS @:SETCOLOR 2,9,0:SETCOLOR 3"32G0T0 LINE <aw> 
4,9,0:SETCOLOR 1,9,12:POKE 752,1:POKE 8 22940 POKE 755,3:POKE 755,2:6070 22848 <XL> 
2,2:POKE 83,39:POKE 201,8 SIND 
21010 ? „"tCTL QILCTL RIYLETL RIXCTL RICC Listing 3. Verschiedene Akkorde. (Schluß) 
@ REM SOUND.S 24@ IF STRIG(@)=® THEN DISTORTION=DISTOR 
(c) 1985 by Peter Gerstner 13/10/85 <ag> TION+2:G0SUB DELAY <YM> 
1 REM <ua> 25@ IF DISTORTION=16 THEN DISTORTION=® <PM> 
2 REM <UR> 26® IF STICK(@)=7 THEN VOLUME=VOLUME+1:I 
14@ GRAPHICS 2:POKE 752,1:POKE 718,145:P F_VOLUME>1S THEN VOLUME=15 <BX> 
OKE 712,145: POKE 2@1,1@:7 "{ESC CTL -2" <NX> 270 IF STICK(@)=11 THEN VOLUME=VOLUME-1: 
159 ? "JOYSTICKAauf/abaaaaana=TONHOEHE" <IZ> IF VOLUME<@ THEN VOLUME=B <FU> 
168 ? "JOYSTICKıtrigger aanaas=ıVERZERRUN 280 IF PEEK(764)<>255 THEN GRAPHICS B:PO 
6” <ZR> KE 764,255: POKE 752,@:RUN "DzSOUND. 6" <FA> 
178 ? "JOYSTICK«links/rechts«=.LAUTSTAER 29@ POSITION 2,427 #63 "sound=@,"3PITCHz" 
KE" <Wv> „"3DISTORTIONg " „" 3 VOLUMEZ "anaa" <CMm> 
188 ? "DRUECKE-EINE-BELIEBIGEATASTEAFUER 3@@ SOUND 8,PITCH,DISTORT ION, VOLUME <zB> 
END"; <vw> 31® SETCOLOR @,DISTORTION,10:SETCOLOR 1, 
198 FOKE 764,255 <WZ> VOLUME,1@:POKE 77,8:6010 2358 <EN> 
208 VOLUME=2 <RO> 32@ FOR WAIT=1 TO 1®:NEXT WAITRETURN <YI> 
218 DISTORTION=-1@ <Ka> 350 REM CASSETTEN BENUETZER MUESSEN IN Z 
22® DELAY-32@ <aa> EILE 28@ ‘RUN "D:SOUND.6" ° AENDERN IN 
230 IF STICK(@)=14 THEN PITCH=PITCH+1: IF GRAPHICS B:END * <aa> 
PITCH>255 THEN PITCH=255 <XK> 
235 IF STICK(@)=13 THEN PITCH=PITCH-1: IF Listing 4. Experimentieren mit dem SOUND-Befehl. Bitte 
[K PITCH<S® THEN PITCH=® <DP> mit dem Namen »D:SOUND.S« auf Diskette speichern. 
@ REM SOUND. 6 < 191 REM <BD> 
c) 1985 by Peter Gerstner 03/86/85 <LN> 200 FÜR P@=1® TO 2 STEP -0.02:VOL=F@/2:5 
1 REM <uQ> OUND v@,P®,8,VOL:SOUND V1,P@+1,8,VOL <DT> 
2 REM <UR> 21@ SOUND v2,P@+2,8,VOL:SOUND VS,RND(2)* 
3 REM <us> 3,8, VOL <XY> 
18 VA=9:V1=1:V2=2:V3=3:POKE 82,2:POKE 83 229 FOR P@=3 TO 12 STEP 8.02:VOL=PB/2:50 
„39:60T0 2008 <TX> UND VB,P®,8,VOL:SOUND V1,P@+1,8,VOL <Tc> 
5® POKE S48,WAIT <uy> 23@ SOUND V2,P@+2,8,VOL=SOUND V3,RND(@)* 
52 IF PEEK(54@)<>@ THEN 52 <au> 3,8,VOL:NEXT P@ <SK> 
54 FOR OFF=® TO S:S0UND OFF,8,8,@:NEXT 0 24® FOR P@=18 TO 2 STEP -0.82:VOL=PB/2:5 
FF=RETURN <KU> OUND v8,P@,8,VOL:SOUND V1,P@+1,8,VOL <EB> 
89 REM <KN> 250 SOUND V2,P@+2,8,VOL:SOUND VS,RND(@)* 
98 REM ##* MACHINE BUN <am> 3,8,VOL:NEXT P@:GOSUB 54: RETURN <MB> 
gı REM <aY> 289 REM <CA> 
188 FOR SHOT=1 TO 12:FOR VOL=-15 TO ® STE 290 REM #** LAZERS/PHOTONS <ca> 
P -5:SOUND v@,80,2,VOL:SOUND V1,68,2,VOL <VA> 291 REM <BE> 
11@ SOUND V2,289,4,VOL:SOUND V3,18,4,VOL 308 FOR SHOT=1 TO 6:FOR PQ=® TO 200 STE 
:NEXT VOL:GOSUB S4:NEXT SHOT <GH> 18 <EN> 
URN <MP> 
<BZ> Listing 5. Verschiedene Sound-Effekte. Bitte mit dem 
192 REM *** SURF/WAVES <TY> Namen »D:SOUND.6« auf Diskette speichern. 
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31@ SOUND v@,P@,@2,3:SOUND V1,P®,18,8:S0U 
SOUND 


ND V2,P@,12, v3,P@,4,8 <ag> 
32@ NEXT P@:NEXT SHOT=:60SUB 54:RETURN <YW> 
3879 REM <CB> 
39@® REM #** POLICE/FIRE SIREN ##* <DP> 
391 REM <BF> 


408 FOR P@=208 TO 58 STEP -1:SOUND v@,P® 
„10,8:SOUND V1,P@+2,1@,6:SOUND V2,P@+4,1 
0,2:SOUND V3,P@+6,1@,2:NEXT P@ <T6> 
428 FÜR P2-5@ TO 160 STEP @.2:SOUND v@,P 
@,1@,8:SOUND V1,P@+2,1®,6:SOUND V2,P@+4, 


18,4:SOUND VS,P@+6,18,2:NEXT P@ <MT> 
438 GOSUB 54:RETURN <0z> 
489 REM <Cc> 
49@ REM *** AIR RAID SIREN ##* <ZX> 
491 REM <BE> 
S@2 FOR LOOP=1 TO 6:FOR P@-1 TO 2@:SOUND 

v2,89+PB,12,8:NEXT P@ <KO> 
51@ SOUND v2,88,1@,12:SOUND V1,18@,1@,12 

zSOUND V2,13,4,12 <AH> 
520 WAIT=39:G0SUB 5@:NEXT LOOP <ax> 


538 FOR V=12 TO @ STEP -9.1:SOUND VB, (28 
-V)*10,18,V:SOUND Vi, (28-V)=18+20,10,V:5 


OUND V2,13,4,VzNEXT V <03> 
540 GOSUB 54: RETURN <RC> 
589 REM <cD> 
59@ REM *** TELEPHONE RINSING «== <EM> 
591 REM <BH> 


60@ FOR RING=1 TO 2:FOR LOUD-1 TO 35:S0U 
ND v8,20,1®,8:SOUND V1,1,2,8 

61® FOR LOOP=1 TO 2:SOUND VB,25,1@, 
ND v1,8,2,8:NEXT LOOP+:SOUND V8,2,®, 


ND v1,0,80,@:NEXT LOUD 

62@ FOR v=7 TO @ STEP -8.2:50UND V8,28,1 
@,V=SOUND V1,8,2,V:NEXT V <C6> 
650 WAIT=90:G0SUB S@:NEXT RING:GOSUB S4: 
RETURN <OH> 
689 REM <CcE> 
690 REM *«" WHISTLING BOMB ##* <cı> 
691 REM <BI> 
788 FOR P@=® TO 159:SOUND @,PB,18,P@/15+ 
2:NEXT P@ <sA> 
718 FOR P@=@ TO 248 STEP 5:VOL=14-P@/28: 
SOUND v@,PB,@,VOL:SOUND V1,P@,8,VOL <FC> 
72@ SOUND V2,P®+15,2,VOL:NEXT P@:60SUB 5 

4: RETURN <CC> 
789 REM <Cr> 
79® REM #*"* SPACE SHIP a <LF> 
791 REM <BJ> 


808 SOUND v2,8,8,2:FOR VOL=1 TO 15 STEP 
®.1:SOUND V@,25,4,VOL:SOUND V1,15,4,VOL: 


NEXT VOL <SH> 
81@ FOR VOL=14 TO & STEP -@.1:SOUND v@,2 

5,4, VOL:SOUND V1,13,4,VOL:NEXT VOL <EK> 
820 GOSUB 54:RETURN <RB> 
889 REM <C6> 
898 REM *** SPACE ECHO #* <UN> 
891 REM <BK> 


988 FOR VOL-15 TO ® STEP -®.2:FOR PO=@ T 
0 S:SOUND v@,P@,2,VOL:SOUND V1,P@+1,2,VO 
L:NEXT P@ <Ur> 
91® FOR PI=VOL*1@ TO VOL STEP -1@:SOUND 
v@,P1,1@,VOL=SOUND V1,P1+VOL,10,VOL=NEXT 


Pi:NEXT VOL <DE> 
928 RETURN <mx> 
989 REM <CH> 
99@ REM *** DOOR BELL ##* <TK> 
991 REM <BL> 


1888 FOR VOL=15 TO 8 STEP -@.5:SOUND VO, 
29,18,VOL:SOUND V1,38,1@,VOL:NEXT VOL <FS> 
181® FOR VOL=15 TO @ STEP -8.5:SOUND v2, 
35,18,VOL:SOUND V1,56,1@,VOL:NEXT VOL <PA> 
1028 RETURN 


<oz> 
1887 REM <v6> 
1898 REM *x** BUZZER *#* <HA> 
1891 REM <UD> 
1188 SOUND 8,49,6,1@ <HL> 
111@ FOR DELAY-1 TO 408 <XH> 
112@ NEXT DELAY <cz> 
1138 SOUND 8,8,2,8-RETURN <DL> 
1189 REM <vI> 
119@ REM *xx* GALAXY CANTINA MUSIC # <YW> 
1191 REM <UF> 


1288 FOR I=® TO 3 <WL> 


1218 FOR X=15 TO 8 STEP -@.2 <vo> 
1229 SOUND 8,X,12,8 <ım> 
1258 FOR DELAY=1 TO 2:NEXT DELAY <TL> 
124® NEXT X <Lo> 
125® NEXT I:SOUND @,8,8,@:RETURN <BO> 
1287 REM <vK> 
1298 REM ##* THUNDER wer <FK> 
1291 REM <UH> 
1308 FOR P@=1 TO 3 <Ix> 
131@ Y=INT (255=RND (1)+28) <2v> 
132® X=RND(1)*75 <BG> 
1338 FOR Pi=1 TO Y <3Z> 
1348 SOUND ®,P1,8,15 <CW> 
1358 NEXT Pi <EZ> 
1368 FOR DELAY=1 TO X:NEXT DELAY <yo> 
137@ NEXT P@:SOUND 8,8,8,@:RETURN <BY> 
1389 REM <um> 
1390 REM =#= OLD AIRPLANE ###* <10> 
1391 REM <UJ> 
1488 FOR X=1 TO 40@ <TU> 
1418 SOUND 8,99,10,8 <RR> 
1428 SOUND 0,8,8,8 <HK> 
1438 NEXT X:RETURN <KH> 
1487 REM <vo> 
149® REM === PLANE CRASHING # <NC> 
1491 REM <UL> 
1508 FOR x=255 TO 8 STEP -1 <HW> 
151® SOUND 8,X,8,8 <NI> 
1528 FOR I=1 T0 5 <YR> 
1538 NEXT I:NEXT X <60> 
1549 FOR X=15 TO @ STEP -1 <EN> 
155@ SOUND ,25,16,X <OX> 
1568 FOR I=1 TO 28 <EK> 
157® NEXT I:NEXT X <HA> 
1588 RETURN <aB> 
1999 STOP <DW> 
2000 REM #*** MENU OPTIONS »##* <X0> 
2@1® GRAPHICS ®:SETCOLOR 2,15,@:POKE 752 

„1:POKE 281,18: SEN? 


2828 ? „"{CTL @ILCTL RILCTL RYLCTL RYLCT 
L RILCCTL RILCCTL RICCTL RILCTL RILCTL RIC 
ETL RICCTL RILCTL RILCTL RICCTL RICCTLR 


3CTL EI" <vE> 
2038 ? „“{SHIFT =) .SOUND.EFFEKTE-{SHIFT 
=)" <ED> 


2040 ? „"LCTL ZIECTL RILCTL RILCTL RILCT 
L RILETL RILCTL RILCTL RICCTL RILCTL RIC 
ETL RILCTL RILCTL RILCTL RIXCTL RIXCTL R 


2{CTL C}":POKE 281,9:? <sV> 
2@5® POKE 201,5 <MmI> 
2188 ? „".<1>.MACHINE<GUN“ <AH> 
211@ ? „".<2>ASURFWAVES" <a0> 
2128 ? „"<S>ALAZERAFIRE” <RE> 
2130 7? „"n<A>APOLICEASIREN“ <MmO> 
Z2148 ? „"n<S>AAIRARAIDASIREN" <FK> 
2158 ? „"a<ö>.TELEPHONERINGING“ <ON> 
2160 ? „"“<7>“WHISTLING.BOMB" <NN> 
2178 ? „"<B>-SPACE.SHIP" <RY> 
2188 ? „".<9>.SPACE-ECHO" <BE> 
219@ ? „"<1®>.DOOR-BELL" <BO> 
22088 ? „"<11>.BUZZER" <UM> 
2218 ? „"<12>.GALAXY-CANTINAMUSIC <HW> 
2220 ? „"<13>.THUNDER" <RE> 
2258 ? „"<14>.OLD.AIRPLANE" <IU> 
2240 ? "<1S>.PLANEACRASHING" <J7z> 
2508 ? „"<16>.RUN.LAST.PROGRAM" <IW> 
3008 POKE 53279,0:? :? „"aunnWELCHENR. 

"7:TRAP 9080: INPUT CHOICE:TRAP 20000 <XW> 
301@ CHOICE=INT (CHOICE): IF CHOICE<SI OR C 

HOICE>16 THEN 9898 <zm> 


3028 IF CHOICE=1& THEN RUN "D:SOUND. 7“ <SCc> 
303@ GRAPHICS 8:SETCOLOR 2,CHOICE,8:? 

:? =? zLIST CHOICE=1@8-18,CHOICE*1@@+8@ <BB> 
3848 GOSUB CHOICE=«188:? :? 


E.EINE.TASTE-FUERMENUE";:POKE 764,255 <CS> 
305@ IF PEEK(764)-255 THEN 3058 <Xc> 
3@6@ POKE 764,255:60T0 2008 <SK> 
OBB RUN <XW> 


9010 REM CASSETTEN BENUETZER MUESSEN IN 
ZEILE 350282 °RUN "D:SOUND.7"" AENDERN IN 

"GRAPHICS B:END" <c6> 
Listing 5. Verschiedene Sound-Effekte. (Schluß) 


OKE TA,16@+I:POKE TA+4,16@+I:NEXT, I 

158 60T0 188 

1228 DATA.2,0,8,8,2,2,8,0,2,0,0,8 

1818 DATA.2,0,8,02,2,2,2,0,0,0,8,0 

11@8 DATA.162,81,81,81,81,81,91,81,81,81 
‚81,81 

111@ DATA_192,81,81,81,81,81,128,81,81,8 
1,81,81 

1128 DATA.121,81,81,81,81,81,121,91,136, 
1@2,144,198 

1138 DATA.162,121,144,198,136,182,144,1® 
8,162,121,182,136 

1148 DATA.162,121,144,188,136,1@2,144,1@ 
8,162,121,182,136 

115@ DATA.284,144,217,162,243,284,243,18 
2,217,162,204,217 

1152 DATA.162,121,144,188,136,1@2,144,1@ 
8,162,121,182,136 

1154 DATA.162,121,144,188,136,1@2,144,1® 
8,162,121,182,136 

1168 DATA.188,8,188,128,0,121,8,0,0,0,8, 
@ 

117® DATA.136,0,156,156,0,144,0,0,0,8,8, 
[ 

1188 DATA.162,9,162,2,162,0,144,0,144,8, 
144,0 

1198 DATA.136,8,136,0,144,0,162,0,0,8,@, 
@ 

1200 DATA.108,0,198,128,9,121,0,0,0,0,8, 
® 

1218 DATA.136,8,136,136,0,144,0,0,0,2,8, 
@ 

1228 DATA.162,8,162,92,8,162,144,0,144,0, 
9,144 

123@ DATA.136,8,136,144,0,162,0,0,0,0,8, 


1248 DATA.-1 
2000 POSITION 8,3:? #65" „VIELEN.DANK.FUE 


? #6:? #65" „MITMACHEN-UND-VIEL" 
? #6:? #65" ERFOLG-IMMUSIK" 
2038 ? 86:7 #65". „PRÜOBRAMMIEREN" 
= 
® 
? 


46:7 #65 "aaa sWUENSCHT" 


? #65 "uupetergerstner" 
2878 POSITION 8,21:? #65 "=. START.=. 


Listing 7. »Oxygene« von Jean-Michel Jarre. Bitte mit dem 


Namen »D:SOUND.8« auf Diskette speichern. 


<vT> 


<WE> 
<Wm> 
<us> 
<EC> 
<MZ> 
<FI> 


<WC> 


<Dm> 
<0J> 


<cs> 
<EU> 


<an> 
<SER> 
<IE> 
<HP> 
<Wy> 
<DE> 
<CY> 


<AH> 
<PS> 


@ REM SOUND.7 < 
c) 1985 by Peter Gerstner 26/11/85 <aB> 

ı REM <ua> 
2 REM <UR> 
3 REM <us> 
180 G0TO 10008 <Ic> 
S@@ POSITION 1,8:FOR ME=2 TO S:POSITION 
6,ME+2:7 #63 5376@+ME3; "=" ;N(ME)I "NEXT 

ME <Dz> 
608 ? #6; "waehle=speicherzelle"; <SF> 
788 POSITION 5,2:? #65"{ESC CTL +3":Y=2 <ZS> 
72@ S=STICK(@):IF S=14 AND Y>2 THEN POSI 
TION 5,Y:? #65 ".":Y=Y-1:POSITION 5,Y:? # 

6; CHR$ (39) :GOSUB Saaa <ÄXN> 
730 IF PEEK(764)<>255 THEN 12088 <CH> 
748 IF S=1S AND Y<1@ THEN POSITION 5,Y:? 

#65 "A": Y=Y+1:POSITION: 5,Y:? #65CHR$ (32) 
:60SUB 3208 SRF> 
768 IF STRIG(@)=1 THEN 728 <AB> 
802 GC=Y-2 <UB> 
908 POSITION 8,11:7 #65" triggersauslass 
en... <EE> 
1808 IF STRIS(B)-@ THEN 1898 <YL> 
1810 POSITION 5,Y:? #65"." <SE> 
1028 P-53768+6C:L$=STR$(P):FOR ME=1 TO 5 
z IT=ASC(L$ (ME,ME)) : IT=IT+128:L$ (ME,MEI=C 
HRECITI=NEXT ME <Ta> 
1838 POSITION 6,Y:? #6;L$ <BP> 
1948 POSITION 8,11:? #65"... „aender „poke 
ua" NND 
2090 S=STICK(@)zIF S=14 AND N(GCI<255 TH 
EN NISCI=NIGC)+1 <PW> 
2028 IF PEEK(764)<>255 THEN 12908 <UE> 
21@® IF S=13 AND N(GC)>@ THEN N(SCI=NISC 
3-1 <aE> 
22@@ POKE P,N(GC) POSITION 12,Y:7 #6;N(6 
SS <uu> 
2308 IF STRIS(@)=1 THEN 2808 <AI> 
2400 POKE 65,2:60T0 508 <a3> 
3008 FOR ME=1 TO 1@:POKE 53279,@:POKE 53 
277 ,8:NEXT ME:RETURN <Lm> 
19222 GRAPHICS 18:DIM N(B) ‚L$CH):SOUND @ 
„2,0,@2:POKE 718,154:POKE 709,204 <am> 
1Q21@ REM * LITERALS IN LINE 18188 ARE I 
NVERSE VIDEO <vc> 
10180 7 #65"... .SOUND-EDITOR":7 #ö5 "ann. 
sense" POKE 764,255 <57> 
I1@®@ FOR NE-=2 TO (MEI=@:NEXT ME:CLOS 
E #1:0PEN #1,4,8,"K:":G0T0 58@ <us> 
12082 FOR A=2 TO S:SOUND A,@,2,@:NEXT A: 

POKE 65,3 <66> 

12212 RUN "D:SOUND.8" <wo> 
1202® REM 5 <NW> 
12032 REM Cassetten Benutzer Zeile 1221@ 

aendern in "GRAPHICS BzEND" <Fz> 
Listing 6. Sound-Editor. Bitte mit dem Namen 
»D:SOUND.7« auf Diskette speichern. 

@ REM SOUND.8 <uR> 

1 REM <ua> 
2 REM <UR> 
3 GRAPHICS. 1+1& <19> 
4 SETCOLOR @,4,6:SETCOLOR 1,8,12:SETCOLO 
R 2,11,4:60SUB 2298 <xs> 
5 FOR I=2 TO S:SOUND 8,180,1@,0:NEXT I <XL> 
18 DIM BSH) <BH> 
28 B(1)=128:B(2)=@:B(3)=128 <2D> 
40 POKE 53768,4:50=13@:POKE: 53763,138 <KP> 
5@ BC-=3:RESTORE 1988 <T9> 
198 READ T:IF T=-1 THEN RESTORE 11@@:REA 
DT <UK> 
105 IF PEEK(53279)=6 THEN GRAPHICS @:NEW 

<aK> 

118 BC=BC+1:IF BC=4 THEN BC=1 <KR> 
115 SO=S0-18: IF SO-@ THEN SO=12® <xc> 
120 C=1536:POKE 53762,S0:POKE 53767,168: 
TA=1536 <aD> 
127 IF B(BC)<>@ THEN C=53767:POKE 53766, 
BBC) <01> 
13@ IF T<>@ THEN POKE 53760,T:POKE 53764 
„T+1: TA=53761 <yw> 
148 FOR I=14 TO 2 STEP -2:POKE C,192+I1:P 

— 


z 


® REM (c) 
1 REM 

2 REM 

3 REM 

18 GOSUB S8088 

15 POKE 53768,1 

32 SOUND @,8,12,1@:SOUND 1,2,18,1@:SOUND 
2,8,10,10:SOUND 3,2,10,1@ 

5® C=C+1:IF C>8 THEN C=1:READ BD,RD,SD 
68 ST=ASC(SF(C+SD,C+HSD)) 

7@ BT=ASC (B$(C+BD,C+BD)):SOUND 3,BT,12,8 
75 IF PEEK(53279)=6 THEN GRAPHICS @:END 
88 RDIS=17A=ASC(RFC+HRD,CHRDI) IF ACHQ T 
HEN RT=A:RL=12 

98 READ T,E:IF T=-1 THEN 208 

95 SOUND @,T,18,12 

188 FOR I=15 TO 4 STEP -1.6:SOUND 1,ST,1 
2,1:SOUND 2,RT,8,RL:RL=RL-@.9* (RL>=@.6): 
NEXT I 

181 SOUND 2,8,3,18 

185 IF E=@ THEN SOUND 9,2,2,8 

118 60TO 58 

208 FOR I=15 TO 4 STEP -1:SOUND 2,91,18, 
OUND 1,121,1@,1:SOUND 2,72,1@,1:SOUND 
I,@,@,@:NEXT I 

202 FOR I=15 TO 4 STEP -1:SOUND 8,91,18, 
1:SOUND 1,121,1@,1:SOUND 2,72,1@,1:SOUND 
3,0,0,@:NEXT I 

284 FOR I=15 TO 4 STEP -1:SOUND 8,96,18, 


1985 by Kemal Ezcan 


Listing 8. »Digi Loo-Digi Ley« - Top-Musik auf dem Atari 


<RY> 
<UQ> 
<UR> 
<US> 
<MT> 
<PA> 


<ov> 
<B0> 
<XL> 
<JI> 
<XH> 


<IH> 
<aNn> 
<SF> 


<sA> 
<6A> 
<HM> 
<as> 


<vT> 


<vZ> 
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I:SOUND 1,121,1@0,1:SOUND 2,81,1@,1:SOUND 
3,2,8,B:NEXT I 

206 FOR I=15 TO ® STEP -0.8:S0UND @,91,1 
@,1:SOUND 1,121,1@,1:SOUND 2,72,18,1:S0U 
ND 3,0,0,@:NEXT I 

21® GRAPHICS QzEND 

220 STOP 

1098 DATA-S6,0,56,0,1,0,1,0,1,0,1,8,1,2, 
1,0,1,0,1 

1m18 DATAS6,0,56,72,0,72,8,81,0,72,0,0, 
1,8,1,8,1,0,1 

1028 DATA-56,0,56,0,1,0,1,2,1,0,1,0,1,8, 
1,0,1,8,1 

1030 DATA.0,0,56,72,0,72,0,81,0,72,8,2,1 
»@,1,0,1,0,1 

1048 DATA.2,8,56,0,1,0,1,0,1,0,1,8,1,@,1 
„2,1,0,1 

1045 REM VORSPEL 

1050 DATAX56,0,8,72,0,72,0,72,8,81,1,81, 
8,72,1,72,0,60,0 

1060 DATA-56,0,0,35,0,33,0,35,0,45,1,45, 
0,40,1,40,0,0,1 

1872 DATA.56,0,0,60,0,60,0,60,8,60,1,60, 
@,91,1,91,0,45,8 

1088 DATA.56,0,8,22,90,22,0,22,08,22,0,23, 
1,23,0,26,1,26,8 

1998 DATA.56,0,16,60,0,60,0,60,0,72,1,72 
‚2,81,0,91,0,81,1 

110@ DATA.56,0,24,81,1,81,1,81,1,81,8,68 
‚1,68,1,68,1,68,8 

1110 DATA.56,8,16,60,0,60,8,60,0,72,1,72 
‚0,81,0,91,2,62,1 

112@ DATA.56,0,32,60,1,60,1,60,1,60,1,68 
,0,45,0,47,0,68,1 

115@ DATA-56,8,48,60,1,60,1,60,1,60,1,60 
,1,60,2,72,0,68,@ 

1148 REM REFRAIN 

1152 DATA.16,0,16,60,1,60,0,60,0,72,8,53 
‚1,53,0,53,8,72,@ 

1160 DATAx24,0,24,68,0,72,0,68,0,60,1,68 
»1,68,8,72,0,68,0 

1178 DATA.0,2,0,60,0,68,2,60,2,60,2,68,0 
»91,1,91,0,53,1 

1180 DATA.S2,0,32,53,1,53,1,53,1,53,1,53 
»1,53,1,53,1,53,8 

117@ DATA-8,0,8,33,0,53,0,53,0,53,0,47,1 
»47,0,47,1,47,8 

1208 DATA.2,0,02,45,0,68,1,60,8,68,1,68,1 
,60,1,60,0,72,0 

1218 DATA.48,0,48,68,0,72,0,68,1,68,1,68 
„@,53,1,55,8,53,1 

1215 REM {CTL OICCTL RILCTL RICCITL RYAC 


,1,68,0,72,0,68,0 

1238 REM REFRAIN 

1248 DATA-16,8,16,60,1,60,0,60,0,72,0,53 
„1,53,8,53,8,72,® 

1258 DATA.24,0,24,68,0,72,0,68,0,60,1,60 
‚1,60,8,72,0,68,8 

1260 DATA.0,2,0,60,0,60,8,60,0,60,0,60,8 
„91,1,91,0,53,1 

1270 DATA-32,0,32,53,1,53,1,53,1,53,1,53 
„1,55,1,55,1,53,, 
1280 DATA.8,0,8,53,0,53,0,53,0,53,0,47,1 
»47,0,47,1,47,0 

1298 DATA.0,0,0,45,0,60,1,60,0,60,1,60,1 
,68,1,68,0,72,0 

1308 DATA.48,0,48,68,0,72,0.68,1,68,1,68 
„0,53,1,53,0,55,1 

1318 REM CTL OIKCTL RILCTL_RIKCTL_RYZIG 
TL_RILCTL RITETL_RF 

1528 DATA.40,0,40,53,1,53,0,60,1,60,1,6@ 
+0,45,0,47,0,60,1 

1559 DATA.40,0,40,60,1,68,1,60,1,60,1,6 
»1,60,1,60,1,60,8 

1348 REM WIEDERHOLUNG 

1358 DATA.56,0,0,72,0,72,0,72,0,81,1,81, 
@,72,1,72,0,60, 
1368 DATALS56,0,0,33,0,33,0,35,0,45,1,45, 
@,48,1,48,0,0,1 

1378 DATA.56,0,0,60,0,60,0,60,0,60,1,6@, 
8,91,1,91,0,45,0 


<DC> 


<Am> 
<HT> 
<EO> 
<Fa> 
<WC> 
<FW> 
<YK> 


<UU> 
<PR> 


<HU> 
<BP> 
<BH> 
<KD> 
<OH> 
<IW> 
<HE> 
<c8> 


<NO> 
<va> 


<EI> 
<XX> 
<UF> 
mg» 
<DM> 
<NO> 
<Ta> 
<XD> 


<MmV> 
<Yr> 


<EH> 
<Xuw> 
<WE> 
<MI> 
<DL> 
<op> 
<TP> 
<SPp> 
<EM> 


<NJ> 
<WA> 


<ıa> 
<BV> 


<BN> 


1388 DATA.56,0,8,22,0,22,0,22,0,22,0,23, 
1,235,0,26,1,26,8 

1398 DATA-56,0,16,60,0,60,8,608,8,72,1,72 
„2,81,0,91,8,81,1 

1400 DATA.56,2,24,81,1,81,1,81,1,81,8,68 
,1,68,1,68,1,68,8 

1410 DATA.56,9,16,608,0,60,0,60,0,72,1,72 
„8,81,0,91,2,68,1 

1420 DATA-56,0,32,60,1,68,1,60,1,60,1,68 
,0,45,0,47,0,60,1 

1430 DATA.56,8,40,60,1,60,1,60,1,60,1,60 
,1,68,8,72,0,68,@ 

1448 REM REFRAIN 

1450 DATA216,0,16,60,1,60,0,60,0,72,0,53 
,1,53,0,53,8,72,@ 

1468 DATA424,0,24,68,8,72,0,68,0,60,1,60 
,1,60,0,72,0,68,® 

1478 DATA-0,0,0,60,0,60,0,60,0,60,2,60,0 
»91,1,91,0,53,1 

1488 DATAAS2,0,32,53,1,55,1,53,1,53,1,55 
»1,53,1,53,1,53,@ 

1490 DATA-8,0,8,53,0,53,0,53,0,55,0,47,1 
+47,8,47,1,47,0 

1590 DATA-8,0,0,45,0,60,1,60,0,69,1,60,1 
»68,1,60,8,72,0 

1510 DATA-48,0,48,68,0,72,0,68,1,68,1,68 
‚0,53,1,53,0,53,1 

1515 REM {CTL_@ILCTL RICCTL RICCTL KILO 

TL_RILCTL_RILCTL_RYETCTL V> 

1520 DATA-40,8,40,53,1,53,0,60,1,60,1,60 
‚1,60,0,72,0,68,® 

1539 REM REFRAIN 

1548 DATA-16,0,16,60,1,60,0,60,0,72,0,53 
,1,53,8,53,0,72,@ 

1558 DATA124,8,24,68,0,72,0,68,0,60,1,68 
,1,68,0,72,0,68,0 

1568 DATA=2,8,0,60,2,60,0,60,8,60,0,60,2 
»91,1,91,0,55,1 

1578 DATA.32,0,32,53,1,93,1,53,1,53,1,33 
„1,53,1,53,1,53,8 

1588 DATA.8,0,8,53,0,53,0,53,8,53,8,47,1 
»47,0,47,1,47,0 

1590 DATA.0,0,0,45,8,60,1,60,0,62,1,6@,1 
+68,1,68,0,72,0 

1608 DATA-48,2,48,68,0,72,0,68,1,68,1,68 
„0,53,1,53,8,55,1 

1610 REM {CTL_GILCTL RICCTL RICCTL RIZIC 

TL_RITCTL_RYCETL_RY 

1620 DATA-40,0,40,53,1,53,0,68,1,68,1,68 
„8,45,0,47,0,60,1 

1630 DATA-40,0,40,60,1,60,1,60,1,60,1,60 
+1,68,1,68,1,60,@ 

1650 DATA08,8,0,-1,8 

Sa0@a REM INIT 

3a@1@ DIM S#(64) ‚B&(64) ‚RE(16) 

30020 RS="(LCTL „ILCTL FILCTL „BeLCTL „> 
XCTL FILCTL „ILCTL FILCTL FILCTL OICCTL 

or rc 

SO0S® BS="CTL RICCTL RILCTL RILCTL RICC 
TL_RIKCTL_RITCITL RICCTL Rinnnn????tETL_R 
IKCTL_RIECTL_RICCTL RIOBOBLCTL „ICCTL „> 
<ETL_3ItCTL_,377??nnnnnnnn??7777??XETL_ 7 
ITETL_„ICCTL „ILCTL ILCTL ,ILCTL „ICETL 
_aICCTL „ICCTL NICCTL NICCTL NILCTL NILC 
TU NICETL NICCTL NICCTL I" 

30040 St="aQaBaßadHs$H$CCTL_B}Y?ICTL B}?aB 
as: siW+W+CCTL_RI?CCTL_BITHEHSHEHFTCTL_B 
YFLCTL B3?CCIL BI7{CTL BIPWHWW+W+LCTL N 
FLCTL NIECTL NFTCTL NICETL NILCTL NICCTL 
NILCTL N2" 

30050 GRAPHICS S+16:SETCOLOR 4,2,6 

30060 GRAPHICS 18:$ETCOLOR 4,9,0:SETCOLO 

R 9,0,15 

30070 7 46:7 #65 "uM.C.S.C. une"? 

7 #65:7 #635 ".SOFT 


DS zer 2 
WAREAAAHHE 

30075 7? Hös"annnnnnnnnn 7 Map 
RESENTAanntnH" 27 #65" DRPRPRDE 5 2 2 2 2 
3088@0 POSITION 8,9:7 #6: "DISI-LOOs/“DIGI 
SEE 

32085 ? #65" (C) ABYAKEMALSEZCAN" 

SAR9a C=B:RETURN 

Listing 8. »Digi Loo-Digi Ley« (Schluß) 
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<vo> 


Aktion 
mit 
Action 


Action zählt zu den schnellsten 
Programmiersprachen für Atari- 
Computer. Wer auf hohe Ge- 
schwindigkeiten Wert legt, aber 
nicht in Maschinensprache pro- 
grammieren will, sollte Action in 
Erwägung ziehen. 


miersprache von sich reden, die 

ursprünglich als Sprache für System- 
entwickler konzipiert war: »C«. Sie 
wurde Anfang der siebziger Jahre von 
Dennis Ritchie aus BCPL weiterent- 
wickelt. Als Standardwerk zur Program- 
mierung in »C« wird daher auch oft das 
Buch von Kernighan/Ritchie (The C 
Programming Language«) genannt. Rit- 
chie war späterauch an der Entstehung 
von UNIX beteiligt. 

Es gab bereits mehrere Versuche, die 
Sprache C auf den Atari anzupassen: 
Das »Deep Blue C«-System ist weitge- 
hend an einen klassischen C-Compiler 
angelehnt. Allerdings sind hier nicht nur 
beim Befehlsumfang, sondern auch bei 
der Arbeitsgeschwindigkeit Abstriche 
zu machen. Ein anderer Weg wurde mit 
C/65 begangen. Bei diesem System 
wird der Quelltext in einen Assembler- 
text compiliert, der dann mit MAC/65 
(siehe Beitrag in diesem Sonderheft) 
weiter bearbeitet werden muß. 

Unser Thema ist aber die Program- 
miersprache »Action«, die von OSS 
stammt. Diese Sprache enthält zwar 
viele Elemente von C, ist aber dennoch 
»anders« genug, um einen eigenen 
Namen verdient zu haben. 

Action wird (womit wir schon beim 
ersten Unterschied zu konventionellen 
C-Compilern sind) auf einem Programm- 
modul geliefert. Wie bei allen anderen 
Cartridges von OSS handelt es sich 
dabei um ein 16 KByte-Super-Cart- 
ridge. Es belegt aber trotzdem nur 8 
KByte-RAM-Speicher. Bei Verwen- 
dung von DOS XL kann der freie Spei- 
cherplatz sogar noch weiter erhöht 
werden. Der nächste Vorteil ist (genau 
wie bei MAC/65), daß sich Editor und 
Compiler gleichzeitig im Speicher 
befinden. Von der Konzeption des 
Systems her läßt sich Action also mit 


I n letzter Zeit machte eine Program- 


Turbo-Pascal vergleichen, bei dem 
ebenfalls Editor, Compiler und Quell- 
text gleichzeitig im Speicher vorliegen. 
Ein separater Linker ist nicht nötig. 

Da Action, genau wie C, nicht mit Zei- 
lennummern arbeitet, hat man dem 
Action-System einen stark an Textpro- 
gramme angelehnten Editor eingebaut. 

Grundsätzlich stehen alle normalen 
Fähigkeiten des Bildschirmeditors zur 
Verfügung. Allerdings kann jede Zeile 
maximal 240 Zeichen lang sein, so daß 
man bei Schleifen und Kommentaren 
genügend Platz zum Einrücken hat. Da 
die Darstellung auf dem Bildschirm auf 
nur 40 Zeichen pro Zeile begrenzt ist 
(Bild 1), ist natürlich immer nur ein Teil 
des Listings zu sehen. Bei den Zeilen, 
die über den Rand des Bildschirms hit 
ausreichen, ist jeweils das letzte Zei- 
chen invertiert. Bewegt man nun den 
Cursor über denrechten Rand des Bild- 
schirms, wird die Zeile, in der man sich 
befindet, nach links gescrolit (Bild 2). 
Weitere Fähigkeiten des Editors sind 
Funktionen zum Suchen und Ersetzen 
von Begriffen, der Einsatz eines zwei- 
ten Bildschirmfensters, in dem man 
eine andere Datei bearbeiten kann, und 
ähnliches mehr. 

Das Fehlen von Zeilennummern beim 
Programmieren erschwert es oft, 
bestimmte Programmteile wiederzufin- 
den: Der Action-Editor erlaubt aber, an 
beliebigen Stellen Markierungen (Tags) 
zu setzen, die man dann später mit nur 
zwei Tasten wieder anwählen kann. 

Sämtliche Parameter wie Zeilenlänge 
und Fenstergröße etc. sind veränder- 
bar. 

Den Mittelpunkt des Action-Systems 
bildet der Monitor, von dem aus man 
Editor, Compiler und DOS aufrufen 
kann. Außerdem können einzelne Spei- 
cherzellen verändert und ganze Spei- 
cherbereiche gelistet werden. Wichtig 
beim Testen eines Programms ist der 
TRACE-Modus. Während des Pro- 
grammablaufs erlaubt er die Ausgabe 
von Namen und Parametern jeder auf- 
gerufenen Prozedur auf dem Bild- 
schirm. 

Die Programmiersprache Action ist 
weitgehend an C angelehnt. So haben 
beide grundsätzlich ähnliche Daten- 
typen und eine ähnliche Syntax. - 

Dazwischen den einzelnen Befehlen 
nur Leerzeichen stehen brauchen, ist 
man in der Aufteilung des Quelltextes 
völlig frei. 

Natürlich ist es empfehlenswert, bei: 
Verschachtelungen, wie bei anderen 
Programmiersprachen auch, dazwi- 
schenliegende Zeilen einzurücken. So 
werden Programme übersichtlich und 
überschaubar. 

An Datentypen sind in Action 
zunächst einmal BYTE und CHAR (ein- 
zelne Byte), INT (2-Byte-Integer 


zwischen -32768 und 32767) und 
CARD (desgleichen zwischen O und 
65535) vertreten. Bei der Deklaration 
von Variablen kann man (muß aber 
nicht) angeben, welche Speicherstelle 
dazu benutzt werden soll. Beispiel: 
»BYTE chbase=$02F4« 

Mit dieser Zeile würde. man eine 
1-Byte-Variable erzeugen, die genau 
auf der Adresse $02FA4 liegt. Bei einer 
Wertzuweisung zu chbase wird die 
Adresse $02F4 geändert. Das Kom- 
mando »chbase=$CC« schaltet also 
den internationalen Zeichensatz ein. 
$02F4 fungiert nämlich als Basisregi- 
ster für den Zeichensatz und $CC als 
High-Byte der Anfangsadresse des Zei- 
chensatzes. Wo Basic umständliche 
POKE-Befehle erfordert, kann man hier 
sehr viel eleganter programmieren. 
Gleiches gilt natürlich für die anderen 
Datentypen. 

Neben den fundamentalen Daten- 
typen gibt es in Action auch erweiterte 
Arten von Variablentypen. Fangen wir 
mit dem Typ POINTER (Zeiger) an. 
Davon abgesehen, daß die Deklaration 
ein wenig anders abläuft („CHAR POIN- 
TER pnt« statt »CHAR *pnte), ist die 
Anwendung der Pointer in Action 
genauso wie in C gelöst. Mit 
»pnt=@var« erhält man die Adresse 
einer Variablen (in C:»pnt=&var«), mit 
»pnt ”« erhält man die Adresse, auf die 
pnt zeigt (in C müßte der Befehl dann 
»* pnt« lauten). 

Ein weiterer wichtiger Datentyp ist 
das Feld (Array). im Gegensatz zu C 
verwendet man in Action allerdings nur 
eindimensionale Arrays. Sie werden 
außerdem nur aus den fundamentalen 
Datentypen, also CHAR, BYTE, INT und 
CARD, aufgebaut. Allerdings kann man 
mit einem Trick auch Arrays aus den 
erweiterten Datentypen verwenden. 

In Action lassen sich auch eigene 
Datentypen definieren; sie heißen 
Records. Man benutzt dazu die Anwei- 
sung TYPE, während es in C STRUCT 
heißt. Der Vorteil der Records liegt 
darin, verschiedene Datentypen unter 
einem gemeinsamen Oberbegriff zu- 
sammenfassen zu können. 

Wie schon bei der Erörterung der fun- 
damentalen Datentypen zu sehen war, 
erlaubt Action eine sehr maschinen- 
nahe Programmierung. Alle numeri- 
schen Konstanten können auch in 
hexadezimaler Schreibweise eingege- 
ben werden, und auch sämtliche Funk- 
tionen zur Manipulation einzelner Bits 
sind verfügbar: »&« (logisches AND), 
>%« (OR), ”!” (XOR), LSH (left shift) 
und RSH (right shift). Leider fehlt eine 
angenehme Eigenschaft von C. Es ist 
nicht möglich, Variablen an beliebigen 
Stellen im Programmtext durch zwei 
kurze Zeichen zu in- oder dekrementie- 
ren. 
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Immerhin kann man bei Veränderun- 
gen einer Variablen den Namen auf der 
rechten Seite des Gleichheitszeichens 


weglassen, vorausgesetzt man 
schreibt stattdessen zwei Gleichheits- 
zeichen (Beispiel: »Zaehler==+1« 
erhöht die Variable Zaehler um eins). 

Ein wichtiger Gesichtspunkt bei der 
Beurteilung einer Sprache sind die ver- 
fügbaren Strukturen für Schleifen und 
Verzweigungen. Action ähnelt in dieser 
Hinsicht weniger C, sondern eher Basic 
oder Pascal. Für Verzweigungen dient 
natürlich das Kommando IF. Hierbei ist 
die Anzahl der Befehle, die THEN folgen 
dürfen, völlig offen. Am Ende des durch 
THEN eingeleiteten Blocks muß aller- 
dings ein Flstehen. ELSE ermöglicht es 
dann, den entgegengesetzten Fall abzu- 
fangen. Die Worte DO und OD beginnen 
beziehungsweise beenden einen 
Schleifenblock. Diese beiden Aus- 
drücke ersetzen die geschweiften 
Klammern, die üblicherweise zwischen 
einfachen Anführungszeichen einge- 
bunden sind. Dabei kann man ohne 
Bedingungen arbeiten und erhält dann 
eine unendliche Schleife - oder aber 
WHILE, FOR oder UNTIL benutzen, um 
eine Bedingung für die Schleife festzu- 
legen. Einen vorzeitigen Abbruch von 
Schleifen bewirkt der Befehl EXIT. 

Was eine strukturierte Programmier- 
sprache sein will, muß natürlich über 
Prozeduren, Funktionen und lokale 
Variablen verfügen. Während sich Pro- 
zeduren und Funktionen in C nur darin 
unterscheiden, daß Funktionswerte 
zurückgegeben werden (oder nicht), 
werden sie in Action bereits bei der 
Deklaration unterschieden. 

Bei Prozeduren geht das folgender- 
maßen vor sich: Zunächst wird mit 
PROC angezeigt, daß eine Prozedurde- 
klaration stattfindet. Es folgen der 
Name der Prozedur und (in Klammern) 
Datentypen und Namen der übergebe- 
nen Parameter. Damit sind die überge- 


benen Parameter automatisch als lokale 
Variablen für diese Prozedur definiert. 

Beendet wird der Vorgang mit dem 
Kommando RETURN. Prozeduren wer- 
den wie Kommandos aufgerufen (Bei- 
‚spiel: »Wait (30)«). 

Funktionen unterscheiden sich von 
Prozeduren darin, daß sie einen Funk- 
tionswert an das aufrufende Programm 
zurückliefern können. Ein Aufruf einer 
Funktion sieht deshalb auch ein wenig 
anders aus. Beispiel: »X=STICK (O)«. 
Bei Funktionsdeklarationen muß 
zunächst der Typ des ermittelten 
Endresultats angegeben werden. Es 
folgt dann das Kommando FUNC, der 
Name der Funktion und die Liste der 
übertragenen Parameter (genau wie bei 
Prozeduren). Der einzige weitere 
Unterschied ist, daß zum Schluß dem 
Befehl RETURN noch ein Parameter 
übergeben wird, der dann als Funk- 
tionswert gilt. 

Genau wie bei einem C-System wer- 
den auch zum Action-Compiler die 
wichtigsten Ein- und Ausgabefunktio- 
nen in Form einer Unterprogramm- 
bibliothek mitgeliefert. Der große Unter- 
schied ist allerdings, daß diese Routi- 
nen nicht, wie sonst üblich, auf Diskette 
beiliegen und dann in das compilierte 
Programm eingebunden werden, son- 
dern im ROM des Action-Cartridges lie- 
gen. Dies hat zur Folge, daß compilierte 
Programme, wenn sie auf vordefinierte 
Funktionen oder Prozeduren zurück- 
greifen, nur mit eingestecktem Car- 
tridge laufen. 

Weiterhin gibt es, passend zum 
Action-Modul, eine Unterprogramm- 
bibliothek. Darin enthalten sind 
zunächst Befehle zur Ausgabe sämtli- 
cher Datentypen (inklusive vor PrintF). 
Daneben findet man, auch jeweils für 
alle Datentypen, den INPUT-Befehl. 
Ebenso sindaalle anderen normalen Ein- 
und Ausgabefunktionen, wie GET, PUT, 
OPEN, CLOSE, XIO, NOTE und POINT, 


bereits als Prozedur definiert. Leider 
sucht man die recht wichtigen Befehle 
BGET und BPUT vergeblich. Grafik- 
und Soundbefehle, die zum größten Teil 
ihren Basic-Vorbildern entsprechen, 
fehlen aber nicht. 

Da Action nicht ohne weiteres in der 
Lage ist, Zeichenketten zu verarbeiten, 
sind auch hierfür einige nützliche Pro- 
zeduren vordefiniert. 

Wie wir bisher gesehen haben, hat 
‚Action zwar viele Eigenschaften von C, 
eine vollständige Implementation liegt 
aber beileibe nicht vor. Andererseits 
wartet Action mit Erweiterungen auf, die 
besonders auf dem Atari von sehr gro- 
Bem Nutzen sind. Dazu zählt zum Bei- 
spiel auch die Festlegung der Adresse 
einer Variablen. 

Wer zeitkritische Programmteile doch 
lieber in Maschinensprache schreiben 
will, dem stehen zweierlei Wege offen. 
Für kurze, verschiebbare Programm- 
teile empfiehlt es sich, den Maschinen- 
code direktals Datenblock in den Quell- 
text einzubinden. Längere Programme 
kann man ab einer festen Adresse 
assemblieren und die zugehörige Pro- 
zedur im Quelltext einzig und allein 
durch Festlegung ihrer Anfangs- 
adresse definieren. 

Für den professionellen Programmie- 
rer ist es wichtig zu wissen, daß er die 
volle Kontrolle darüber hat, wie der 
Compiler den Speicherplatz aufteilt. So 
läßt sich dann der erzeugte Code in ein 
EPROM brennen. 

Weiterhin ist für den ernsthaften Ein- 
satz wichtig, die Verwendung der im 
ROM integrierten Unterroutinen unter- 
binden zu können. Man definiert ein- 
fach die Routinen selbst neu. Einfacher 
ist es allerdings, auf die Action- 
Runtime-Library zurückzugreifen. Der 
Anwender bekommt eine Reihe vordefi- 
nierter Dateien, die mit dem INCLUDE- 
Befehl in die selbstverfaßten Pro- 
gramme eingebunden werden. 
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Bild 1. Eine Zeile kann bis zu 240 Zeichen lang sein. Da sich 
nur 40 Zeichen auf dem Bildschirm darstellen lassen, wird 
die Zeile, in der sich der Cursor befindet, gegebenenfalls 
nach links oder rechts gescrollt. 


Bild 2. Die mit dem Cursor gekennzeichnete Zeile ist bereits 
nach links gescrollt. Alle anderen Zeilen befinden sich an der 
ursprünglichen Position. So bleibt der zu bearbeitende Text 
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übersichtlich. 
APPY=: 
Om RITER 


Unter dem Strich gesehen handelt es 
sich bei Action (etwa 250 Mark) umeine 
professionelle Programmiersprache mit 
Arbeitsgeschwindigkeiten, die auf dem 
Atari bisher für eine höhere Program- 
miersprache als unerreichbar galten: 
Ein Benchmarkprogramm zur Berech- 
nung derersten 1000 Primzahlen war in 
‚Action nur 40 Prozent langsamer als die 
in Maschinensprache geschriebene 
Version. 

Ein Grund für diese enorme 
Geschwindigkeit ist darin zu suchen, 


daß der Compiler intern völlig anders 
vorgeht als ein normaler C-Compiler. 
Durch diese vereinfachte maschinen- 
sprachnähere Arbeitsweise ist leider 
auch die Fähigkeit verlorengegangen, 
rekursiv zu arbeiten. 

Als weiteren Zusatz zu Action 
bekommt man für etwa 100 Mark die 
»Programmer's Aid«-Diskette. Auf die- 
ser Diskette findet man dann schmerz- 
lich vermißte Befehle wie CIRCLE, 
Kommandos für Player/Missile-Grafik 
oder Fließkommaverarbeitung sowie 


einige Demoprogramme. 

‚Action hat also für jeden etwas zu bie- 
ten: Dem Umsteiger von Basic wirdeine 
schnelle, komfortable Sprache gebo- 
ten, die auch dem Profi-Programmierer 
noch voll ausreicht. Und wer später 
plant, auf einem »großen« Computer in 
© weiterzumachen, kann sich bereits 
mit seinem Atari einarbeiten. 

(Julian F. Reschke/wb) 
Bezugsquellen: 
CompyShop, Gneisenaustr. 29, 4330 Mühlheim/Ruhr, 
Tel. (0208) 497169 
Münzenioher, Tölzer Str. 4, 8150 Holzkirchen, 
Tel (08024) 1814 


Das Textverarbeitungs-Sextett 


Sechs verschiedene Textverar- 
beitungen auf dem Prüfstand. 
Welche ist die beste? 


en Heimcomputer als Schreib- 
D=* zu nutzen ist wohl 

eine der häufigsten ernsthaften 
Anwendungen im Heimbereich. Insge- 
samt sechs verschiedene Textverarbei- 
tungen sollen deshalb verglichen wer- 
den, damit Sie beim Kauf die richtige 
Wahl treffen. 

Eine der ältesten Textverarbeitungen 
für den Atari ist wohl der »Atari- 
Schreiber«. Er ist auf Modul und neuer- 
dings auch auf Diskette lieferbar. Der 
»Atari-Schreiber« ist die deutsche Ver- 
sion des amerikanischen »Atari-Wri- 
ters« und deshalb auch auf deutsche 
Verhältnisse abgestimmt. Sowohl das 
Handbuch wie auch die Benutzerfüh- 
rung im Programm sind in deutscher 
Sprache abgefaßt. Ebenso ist der Zei- 
chensatz und sogar die Tastaturbele- 
gung der deutschen Norm angepaßt. 
Wer sonst viel mit der Schreibmaschine 
umgeht, wird darüber erfreut sein. Alte 
Hacker auf dem Atari können sich aller- 
dings anfangs wahrscheinlich vor Tipp- 
fehlern nicht mehr retten. Deshalb lie- 
gen dem Programm auch Aufkleber für 
die Tastatur bei, die die umbelegten 
Tasten entsprechend kennzeichnen. 

Die Bedienungsanleitung zum »Atari- 
Schreiber« besteht aus drei Teilen. Das 
eigentliche Handbuch beinhaltet eine 
ausführliche Beschreibung des Pro- 
gramms und gibt Tips zum Umgang mit 
dem System. Zudem liegt eine Refe- 
renzkarte bei, in der alle Befehle von 
»Atari-Schreiber« kurz, aber informativ 
aufgeführt sind. Zum schnellen Nach- 
schlagen von bestimmten Befehlen 
benutzt man am besten die Referenz- 
karte, die sich als nützliches Hilfsmittel 
beim Umgang mit der Textverarbeitung 
erweist. 


Der »Atari-Schreiber« wird von einem 
Hauptmenü aus gesteuert, das die 
wesentlichen Funktionen zur Bearbei- 
tung eines Textes enthält (Bild 1). Die- 
ses Menü erscheint sofort nach dem 
Laden des Programms und erleichtert 
so den ersten Einstieg in die Textverar- 
beitung. Auch ohne lange im Handbuch 
nachschlagen zu müssen, kann man 
gleich mit der Eingabe des ersten Tex- 
tes beginnen. Man betätigt einfach die 
Taste »N« und gelangt in den Schreib- 
Modus. Am oberen Bildschirmrand ist 
nun eine Zeile zu sehen, welche die 
grundlegenden Druckparameter, wie 
linke und rechte Randbegrenzung, 
oder den Zeilenabstand enthält. Am 
unteren Bildrand befindet sich die 
Anzeige über den aktuellen Cursor- 
stand. Leider beziehen sich diese 
Angaben nur auf die Bildschirmposition 
und nicht auf die tatsächliche Position 
des laufenden Textes. So ist eigentlich 
nur die Spaltenangabe von Nutzen. 
Insgesamt lassen sich 21 Zeilen von je 
35 Zeichen auf einmal auf dem Bild- 
schirm darstellen. Ein horizontales 
‚Scrollen über die 35. Spalte hinaus fin- 
det nicht statt. Die Darstellung von 
Tabellen kann daher zum Problem wer- 
den. Die Formatierung eines Textes auf 
dem Bildschirm ist nicht identisch mit 
dem späteren Ausdruck. Der Text wird 
nur dem Bildschirmformat angepaßt; 
von den Einstellungen, die Ränder, 
Blocksatz und ähnliches betreffen, muß 
man sich leider erst auf dem Papier 
überraschen lassen. 

Die Druckeranpassung ist für die 
Atari-Drucker 1020, 1025 und 1027 
sowie für den Epson FX-80 über ein 
kleines Untermenü vorzunehmen. 


Andere Drucker werden vom Atari- 
Schreiber nicht unterstützt, so daß man 
in diesem Fall entweder für entspre- 
chende Steuerzeichen im Text sorgen 
muß oder sich selbst ein passendes 
Drucksteuerprogramm schreibt. 


Beim »Atari-Schreiber« ist die Aus- 
gabe von Serienbriefen vorgesehen. 
Daher kann man einen Text auch mit 
Variablen versehen. Braucht man bei- 
spielsweise ein Rundschreiben mit 
gleichlautendem Text, aber persönli- 
cher Anrede, so wird die Anrede durch 
eine Variable ersetzt. Beim Ausdruck 
des Rundschreibens schließlich steht 
anstatt der Variablen der eigentliche 
Text. Dieser wirdeinfach einer Datei von 
der Diskette entnommen, die die erfor- 
derlichen Daten enthält. 


Stern oder Sternschnuppe? 


Wer größeren Wert auf komfortable 
Benutzerführung legt, ist mit dem »Star- 
Texter« gut beraten. Allerdings meldet 
sich »Starfexter« mit lautem Getöse und 
grafischen Spielereien. So würde man 
eher ein neues Spiel an Stelle eines 
Textprogramms vermuten. Doch der 
erste Schein trügt. Wie schon der 
»Atari-Schreiber« ist auch dieses Pro- 
gramm auf den deutschen Benutzer 
zugeschnitten. Man verfügt also über 
einen deutschen Zeichensatz, kann 
aber auch beliebige andere Zeichen- 
sätze nachladen. Auf der Diskette ist 
deshalb ein spezielles Programm mit 
dem Namen »StarFont« enthalten. Damit 
kann man sich seine eigenen Zeichen 
definieren. Auf diese Art lassen sich 
natürlich auch spezielle grafische Sym- 
bole in einen Textaufnehmen, denn alle 
Sonderzeichen werden nicht nur auf 
dem Bildschirm dargestellt, sondern 
auch in dieser Form auf dem Drucker 
ausgegeben. Die Tastaturbelegung 
kann man sich aussuchen. Entweder 
arbeitet man mit der regulären Bele- 
gung der Tasten, oder man wandelt die 
Tastatur des Atari in eine deutsche 
Schreibmaschinentastatur nach DIN 
um, je nach eigenen Bedürfnissen und 
Gewohnheiten. 
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Nach dem Laden des Programms 
befindet man sich zuerst im normalen 
Textmodus. Die Darstellung des Textes 
erfolgt in 21 Zeilen mit je 40 Zeichen 
(Bild 2). Durch horizontales Scrollen 
können, je nach vorhergehender Rand- 
einstellung, allerdings bis zu 80 Zei- 
chen nebeneinander dargestellt wer- 
den. Die Spalte und Zeile, in der man 
sich befindet, entnimmt man der 
‚Anzeige am unteren Bildrand. Anders 
als beim »Atari-Schreiber« wird hier die 
tatsächliche Position im Text und nicht 
die Bildschirmposition angezeigt. 

Drückt man die ESC-Taste, gelangt 
man in den sogenannten Control- 
Modus. Mit den Sondertasten START, 
OPTION und SELECT kann man eines 
der drei Menüs von »Starlexter« aufru- 
fen. Das erste dieser Menüs be- 
ziehtsich rein auf Diskettenoperationen 
(Bild 3). Hier kann man beispielsweise 
Texte laden und speichern oder sich 
das Inhaltsverzeichnis einer Diskette 
ansehen. Daneben lassen sich auch 
eine Reihe von verschiedenen DOS- 
Operationen durchführen, wie das 
Löschen und Umbenennen von Files. 
Von hier aus lädt man auch andere Zei- 
chensätze oder speichert die momen- 
tane Parametereinstellung auf Diskette. 

Das zweite Menü ist so umfangreich, 
daß es gleich drei Bildschirmseiten in 
Anspruch nimmt. Hier werden alle 
Grundeinstellungen für die Textdarstel- 
lung vorgenommen, wie die Zeilen- 
länge oder der Blocksatz. Aberauch die 
farbliche Darstellung auf dem Bild- 
schirm kann an die persönlichen 
Bedürfnisse angepaßt werden. 

Das dritte Menü schließlich ist für den 
Ausdruck und das Formatieren von Tex- 
ten zuständig. Die Anpassung an einen 
bestimmten Drucker erfolgt aber nicht 
hier, sondern bereits in einem eigen- 
ständigen Installationsprogramm. In 
diesem Basic-Programm, das unter 
dem Namen »INSTALL« auf Diskeite 
abgelegt ist, wählt man entweder gän- 
gige Druckertypen direkt an, oder man 
definiert sich seine eigene Anpassung 
an den speziellen Drucker. Erwähnens- 
wert ist hierbei, daß man nicht unbe- 
dingt über ein Centronics-Interface ver- 
fügen muß, um Texte an den Drucker zu 
schicken. Mit einem einfachen Kabel, 
dessen Herstellung im Handbuch 
beschrieben ist, kann man seinen 
Drucker auch an die Joystickports des 
Atari-Computers anschließen. Einzige 
Einschränkung des Druckbetriebes ist 
dabei jedoch, daß nicht alle Grafikzei- 
chen des erweiterten Zeichensatzes 
ausgedruckt werden. Dies stört beinor- 
maler Textverarbeitung aber kaum. Vor 
dem Drucken kann man sich den Text 
auch in 80-Zeichen-Darstellung be- 
trachten, also in der Form, wie er später 
tatsächlich auf dem Papier erscheint. 


Diese Darstellung ist zwar aufgrund der 
mangelnden Auflösung des Atari nur 
schwer lesbar und nicht zum Editieren 
geeignet, vermittelt aber einen guten 
optischen Überblick über den fertigen 
Text. 

Das Formatieren von Texten direktauf 
dem Bildschirm istmit»StafTexter«auch 
möglich. Jedoch ist dies bei umfangrei- 
cheren Texten eine sehr zeitraubende 
‚Angelegenheit. Hinzu kommt, daß auf- 
grund der Textformatierung recht ver- 
schwenderisch mit dem Speicherplatz, 
sowohl auf Diskette als auch im RAM- 
Speicher, umgegangen wird. Ein Bei- 
spiel: Begrenzt man den rechten Rand 
eines Textes auf Spalte 40, so wird 
trotzdem jede Zeile mit einer Länge von 
80 Zeichen auf Diskette abgelegt. 40 
Leerzeichen pro Zeile werden also um- 
sonst gespeichert. Man benötigt folg- 
lich doppelt soviel Speicherplatz als 
eigentlich notwendig. Abhilfe schafft 
hier nur das ständige Umformatieren 
vor dem Speichern und nach dem La- 
den eines Textes, das aber, wie bereits 
erwähnt, recht lange dauert. Auch der 
Textspeicher leidet unter dieser Art der 
Darstellung. Maximal kann er 20000 
Zeichen aufnehmen. Die Anzahl der 
Zeilen, die ein Text umfassen darf, ist 
jedoch auf 250 beschränkt. Schreibt 
man seinen Text mit einer Breite von 80 
Spalten, so verfügt man auch tatsäch- 
lich über 80 mal 250 oder 20000 Zei- 
chen Speicherplatz. Bei einer Randein- 
stellung bis zur Spalte 40 beispiels- 
weise kann man nur mehr 40 mal 80, 
also 10000 Zeichen im Textspeicher 
unterbringen. Ideal scheint diese 
Lösung also nicht zu sein. 


Textprogramm aus dem 
Alpenland 


Das nächste Textverarbeitungspro- 
gramm für den Atari nennt sich »Au- 
stro.Text«. Wie der Name schon vermu- 
ten läßt, stammt dieses Programm aus 
Österreich. Auch hier verfügt man 
neben einer deutschsprachigen Anlei- 
tung über einen deutschen Zeichen- 
satz. Auf eine Umbelegung der Tastatur 
wurde jedoch bewußt verzichtet, um, 
laut Handbuch, Umgewöhnungsproble- 
me zu vermeiden. Ein Menü sucht man 
bei diesem Programm vergeblich. Alle 
Befehle zum Bearbeiten eines Textes 
muß man leider im Kopf haben bezie- 
hungsweise im Handbuch nachlesen. 
Bei der Befehlsausführung erscheint 
lediglich eine Art Statuszeile, in derman 
die Eingaben einträgt. So ist es gerade 
in der Einarbeitungsphase doch recht 
mühsam, mit den vielen verschiedenen 
Befehlen von »AustroText« zurechtzu- 
kommen. In der Praxis sieht das so aus: 


Will man beispielsweise den linken 
Rand des Textes beim Ausdruck auf 
Spalte 10 setzen, so fügt man das Kom- 
mando ».LM 10« in den Text ein. Ent- 
sprechend würde eine Begrenzung 
des rechten Randes auf Spalte 50 dann 
».RM 50« lauten. Wie man sieht, sind 
diese Abkürzungen dem Englischen 
entlehnt (LM = Left Margin oder linker 
Rand), die sich - mit entsprechenden 
Englischkenntnissen - gut einprägen. 

Bei diesem Programm wird ebenfalls 
kein separates CGentronics-Interface 
zur Druckerausgabe benötigt. Mit 
einem speziellen Kabel, das man aber, 
andersals bei »StarTexter«, fertigkaufen 
muß, kann man einen Drucker mit Cen- 
tronics-Schnittstelle auch über die Joy- 
stickports ansteuern. Zum Drucken ei- 
nes Textes betätigt man gleichzeitig die 
START- und die P-Taste. Nun gibt man 
den Handlernamen (Gerätebezeich- 
nung) ein, auf dem der Druck erfolgen 
soll. Der Handler »P:« spricht also die 
normale Centronics-Schnittstelle an, 
während »J:« den Ausdruck über die 
Joystickports veranlaßt. Auf diese 
Weise kann man einen Textbei entspre- 
chender Wahl des Handlers natürlich 
auch als LIST-File auf Diskette oder 
Kassette ablegen und dann weiterver- 
arbeiten. Spricht man den Handler »T:« 
an, so erscheint der Text auf dem Bild- 
schirm im 80-Zeichen-Format. Die Dar- 
stellung entspricht dann genau dem 
Format, in dem der Text auf dem Druk- 
ker ausgegeben wird. Um Texte in die- 
sem Modus darstellen zu können, muß 
man jedoch über mindestens 5500 
Byte freien Speicherplatz verfügen. 
Wie auch in der normalen Textdarstel- 
lung (Bild 4) kann man übrigens hier den 
Feinscroll-Modus wählen, in dem der 
Text fließend über den Bildschirm rollt. 

Zur Anpassung an die verschiedenen 
Druckertypen benutzt man auch hier 
ein eigenes Programm namens »Printer 
Editor«. Dieses Programm wird aller- 
dings bereits beim Booten von »Au- 
stroText« in den Speicher geladen und 
belegt dann rund 7500 Byte Textspei- 
cher. Das bedeutet, daß man noch 
7500 Byte freien Speicher benötigt, 
um noch Änderungen zur Druckeran- 
passung vornehmen zu können. An- 
sonsten bleibt nur, den momentanen 
Text zu speichern und die Diskette neu 
zu booten. 


A ohne Ä 


»ATexte ist als Textverarbeitungspro- 
gramm für den Atari auch schon etwas 
länger auf dem Markt. Erfreulich ist die 
Tatsache, daß sich inzwischen das frü- 
her kritisierte Handbuch verbessert 
hat. Es erscheint nach wie vor in 
Deutsch, ist aber wesentlich übersicht- 
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Bild 1. Das Hauptmenü vom »Atari-Schreiber« umfaßt alle 
wichtigen Funktionen. 
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Bild 3. Die Textdarstellung von »StarTexter« mit geändertem 
Zeichensatz. Texte lassen sich, selbst mit anderem Zeichen- 
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Bild 2. Von diesem Menü aus lassen sich beim »StarTexter« 
sämtliche Diskettenoperationen ausführen. 
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Wer seinem Atari etwas mehr entlocken wi 
ıl, als es die normalen Basic-Befehle zu 
lassen, der sollte sich der zahlreichen 
Speicherstellen bedienen, die man mit PE 
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das Atarı-Basic bietet schon in der crun 
dversion einige sehr komfortable Befehle 
Nenn man jedoch beispielsweise bewegte 


ildschirmrands mit Basic-Befehlen nicht 
oder nur sehr umst mdlich realisieren. M 
er dann nicht unbedingt in Maschinenspra 
che programmieren mchte kann Sich einer 


Bild 4. »Austro-Text« im Schreibmodus. Alle Leerzeichen und 
Leerzeilen werden mit Hilfe einer Schraffur optisch deutlich 


satz, auf einem Drucker ausgeben. hervorgehoben. 
licher geworden. Auf die Darstellung Handhabung von »AText« etwas Zur Anpassung des Programms an 
der deutschen Umlaute und Sonderzeir gewöhnungsbedürftig. verschiedene Drucker existiert kein 


chen auf dem Bildschirm muß man als 
»AText«-Benutzer jedoch verzichten. 
Statt dessen fügt man spezielle Grafik- 
zeichen in den Text ein, die später bei 
der Druckerausgabe als Umlaute wie- 
dergegeben werden. 

Wie schon bei »Austro-Text« vermißt 
man bei diesem Programm die Menü- 
Steuerung. Die Kommandos müssen 
also auch hier im Kopf parat sein und 
dann in eine eigene Statuszeile einge- 
geben werden. Daß dies aber etwas 
langwierig werden kann, soll folgendes 
Beispiel aus dem Handbuch zeigen: 
Will man einen Text beispielsweise un- 
terstreichen, so muß man folgende 
Sequenz eingeben: 

»CTRL-L U CTRL-R CTRL-A CTRL-R 
ESC | RETURN« 

Ähnlich sieht der Befehl zum Been- 
den des Unterstreichens aus. Beim 
»Starfexter« muß man vergleichsweise 
nur ein inverses A mit nachfolgender 
Null im Text einfügen, um denselben 
Effekt zu erzielen. Wie man sieht, ist die 


Die Textdarstellung auf dem Bild- 
schirm erfolgt in 20 Zeilen mitje 38 Zei- 
chen. Ab der 20. Spalte beginnt der 
Bildschirm jedoch horizontal zu scrol- 
len, so daß Zeilen mit einer maximalen 
Länge von 255 Zeichen ohne Zeilen- 
vorschub eingegeben werden können. 
Vor allem bei Tabellen ist dies sehr nütz- 
lich und dient der Übersichtlichkeit. 

Am oberen Bildrand sind ständig 
einige Informationen eingeblendet (Bild 
5). So erfährt man die Zahl der bisher 
eingegebenen Zeichen, die Spalte, in 
der sich der Cursor befindet, und den 
restlichen Speicherplatz, der für den zu 
bearbeitenden Text zur Verfügung 
steht. Zudem ist die Größe des Kopier- 
speichers angegeben. Dieser Speicher 
umfaßt rund 4000 Zeichen und dient 
vor allem zur Verschiebung von Text- 
blöcken. Am unteren Bildrand befindet 
sich die Statuszeile, die man über die 
ESC-Taste erreicht. Hier gibt man alle 
Kommandos ein, wie beispielsweise 
das Laden und Speichern von Texten. 


spezielles Programm. Alle Steuerse- 
quenzen für den Drucker müssen daher 
direkt im Text eingegeben werden. Laut 
Handbuch soll auch »A-Text« über die 
Joystickports mit einem Drucker in Ver- 
bindung treten können. Wie dies genau 
geschehen soll, bleibt selbst nach 
mehrmaligem Lesen des entsprechen- 
den Kapitels unklar. 


Perfektion 
aus den Staaten 


Aus den USA kommt ein Textverarbei- 
tungsprogramm mit dem Namen 
»Paperclipe. Entsprechend ist das 
ansonsten hervorragende Handbuch 
natürlich in Englisch abgefaßt. Auch ein 
deutscher Zeichensatz bleibt ein 
Wunschtraum. Sieht man hiervon ab, 
steht einem mit »Paperclip« allerdings 
ein Programm mit fast unbegrenzten 
Möglichkeiten zur Verfügung. 
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Bild 5. So kann bei dem Programm »A-Text« ein Text auf dem 


Bildschirm aussehen. 


Bild 6. Das Arbeiten mit zwei Fenstern ist bei »Paperclip« 


ganz einfach und erleichtert so manche Problemstellung. 
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Bild 7. Eine solche grafische Darstellung läßt sich mit 


»Paperclip« zu Papier bringen. 


Zum Schutz vor Raubkopieren hat 
man sich hier übrigens etwas Besonde- 
res einfallen lassen. Das Programm an 
sich ist nicht geschützt und soll sogar 
aus Sicherheitsgründen auf eine zweite 
Diskette kopiert werden. Zum Betrieb 
des Programms braucht man allerdings 
einen speziellen Schlüssel. Hierbei 
handelt es sich um eine kleine Box, die 
man am Joystickport 2 einstecken muß. 
Ohne diesen Schlüssel läuft gar nichts. 

»Paperclip« ist zwar nur spärlich 
menügesteuert, jedoch fällt dies hier 
nicht besonders ins Gewicht. Erstens 
findet sich rasch jeder der einprägsa- 
men Befehle in dem wirklich übersichtli- 
chen Handbuch. Zweitens kann man 
bei Bedarf drei verschiedene Helpfiles 
aufrufen, in denen die Befehle kurz 
erläutert sind. Besonders praktisch ist 
hierbei, daß ein Helpfile in einem zwei- 
ten Fenster eingeblendet wird. Die 
wichtigsten Befehle können also paral- 
lel zum Text ständig eingesehen wer- 
den. Wer ohne Helpfile arbeitet, kann 
mit Hilfe der Fenster auch zwei ver- 
schiedene Texte gleichzeitig im Spei- 


cher bearbeiten (Bild 6). Das Hin- und 
Herschalten zwischen den Texten erle- 
digt die SELECT-Taste. 

Ist nur ein Fenster geöffnet, so wird 
der Text in 18 Zeilen mit je 39 Zeichen 
dargestellt. Die Zahl der Zeichen, die 
man mit dem horizontalen Scrolling 
nebeneinander schreiben kann, läßt 
sich zwischen 15 und 130 Zeichen ein- 
stellen. Wie der Textschließlich auf dem 
Drucker aussieht, kann man sich auch 
bei diesem Programm vorher ansehen. 
Die formatierte Darstellung erfolgt aber 
nicht mit 80 Zeichen Bildbreite, son- 
dern in normaler Breite. Gegebenen- 
falls muß man den Text dann auf dem 
Bildschirm horizontal scrollen, um einen 
Gesamtüberblick zu erhalten. 

Der Serienbrief-Ausdruck ist mit 
»Paperclip« kein Problem. Aucharbeitet 
dieses Programm ohne Schwierigkei- 
ten mit bekannten Programmen wie 
»SynFile+« und »B/Graph« zusammen. 
Besonders interessant ist das ebenfalls 
auf der Diskette enthaltene Programm 
»HIRES«. Es handelt sich hierbei um ein 
Hardcopy-Programm, das Grafikbilder 


Bild 8. Ein Hauptmenü von »HomeText«. Jede Funktion läßt 
sich mit nur einer Taste aufrufen. 


von unterschiedlichstem Format aus- 
drucken kann. Bild 7 zeigt hierzu ein 
Beispiel. Die grafische Darstellung 
einer Statistik, die man beispielsweise 
mit »B/Graph« erstellt hat, kann man 
ausdrucken und so in einen Text ein- 
bauen. 

Der Druckeranpassung wurde bei 
diesem Programm besondere Aufmerk- 
samkeit gewidmet. Auf der Diskette 
befinden sich bereits über 30 fertige 
Files, passend zu einer Vielzahl von 
Druckern. Sollte sich der eigene 
Drucker hier trotzdem noch nicht fin- 
den, existiert ein Anpassungspro- 
gramm, in dem man die speziellen 
Druckeranforderungen festhalten kann. 

Zum Ausdrucken von mehreren Files 
kann man sich übrigens ein sogenann- 
tes Batch-File anlegen. In solch einem 
File führt man einfach alle zu drucken- 
den Textfiles auf und speichert es dann. 
Beim Aufruf des Batch-Files werden 
alle darin vorkommenden Kommandos 
nacheinander ausgeführt. Diese 
Methode wird man vor allem dann an- 
wenden, wenn ein Textin mehreren ein- 
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zelnen Teilen abgelegt ist und mit einem 
einzigen Befehl ausgedruckt werden 
soll. 


100 Prozent Menü 


»Homefext« ist eigentlich keine 
eigenständige Textverarbeitung, son- 
dern Teil eines Programmpakets. Unter 
dem Namen »HomePak« erhält man 
nämlich neben einer Textverarbeitung 
auch ein Terminal- und ein Datenverar- 
beitungsprogramm. 

Wie schon »Paperclip« kommt auch 
dieses Programm aus den USA. Sowohl 
das Handbuch wie auch die Benutzer- 
führung sind also in Englisch ausgelegt. 
Dies stört bei »HomeText« jedoch kaum. 
Als einzige Textverarbeitung ist »Home- 
Text« zu 100 Prozent menügesteuert. 


Allerdings ist auch hier kein deutscher 
Zeichensatz verfügbar, weder auf dem 
Bildschirm noch auf dem Drucker. 

Die Stärken von »Homelext« liegen 
vor allem in seiner Kompaktheit und 
Übersichtlichkeit. Insgesamt kann man 
mit nur drei Menüs alle Funktionen die- 
ses Programms ansprechen. Bild 8 
zeigt eines der Menüs. Dabei versteht 
sich »Homelext« weniger als eigenstän- 
diges Textverarbeitungsprogramm, 
sondern ist vielmehr zur Zusammenar- 
beit mit den beiden anderen Program- 
men des Pakets konzipiert. 

So kann man beispielsweise Daten 
des »Homefind«-Programms überneh- 
men und auf diese Weise Serienbriefe 
erstellen. »Homeferm«, das DFÜ- 
Programm, holt sich Textdateien, die 
man per Akustikkoppler verdichten 
möchte, vom Textprogramm. Über DFÜ 
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empfangene Texte kann man natürlich 
mit »Homefext« weiterverarbeiten. Alle 
drei Programme befinden sich auf nur 
einer Diskette und können durch ein 
Hauptmenü schnell und bequem aufge- 
rufen werden. Auch beim Datenaus- 
tausch gibt es durch die aufeinander 
abgestimmten Programme keine Pro- 
bleme. 

Ein Nachteil von »Homelext« ist 
jedoch der etwas zu klein geratene 
Textspeicher. Er faßt nur 6620 Zei- 
chen. Bei längeren Texten ist man also 
gezwungen, den Text in mehreren Files 
abzulegen. Die Textdarstellung erfolgt 
in 21 Zeilen mit 38 Spalten. Horizonta- 
les Scrollen über den rechten Bildrand 
hinaus istnicht möglich. Dafür kann man 
sich mit dem Drucker-Preview ein Bild 
von dem fertigen Text machen. In skiz- 
zierter Form wird ein Blatt Papier auf 
dem Bildschirm dargestellt, auf dem der 
Text nur in Linien dargestellt ist. Dies 
genügt durchaus, um die äußere Form 
und Raumaufteilung des späteren Tex- 
tes beurteilen zu können. 


Kompromisse statt 
optimaler Lösungen 


Für welches der sechs Textverarbei- 
tungsprogramme man sich letztlich ent- 
scheidet, hängt vor allem davon ab, in- 
wieweit man das Programm professio- 
nell nutzen möchte. Zumindest der 
deutsche Zeichensatz sollte sowohl auf 
dem Bildschirm als auch auf einem 
Drucker darstellbar sein. Eine gute 
Menüsteuerung wird man schnell 
schätzen lernen, wenn man nur ab und 
zu Texte bearbeitet und daher umfang- 
reiche Kontrollcodes kaum im Gedächt- 
nis behält. Kann man sich einen Text vor 
dem Drucken in seiner späteren Form 
ansehen, erspart dies so manches Blatt 
Papier. Vor allem bei Briefen, in denen 
es auch auf eine gewisse Raumauftei- 
lung ankommt, trifft das zu. Sind häufig 
Tabellen zu erstellen, ist es von Vorteil, 
wenn die Zahl der Zeichen, die neben- 
einander ohne Zeilenvorschub darge- 
stellt werden können, möglichst groß 
ist. Zur professionellen Anwendung 
gehört natürlich auch der Serienbrief- 
Ausdruck. Doch wer sich die Vergleichs- 
tabelle ansieht, wird schnellfeststellen, 
daß es das optimale Programm für den 
Atari nicht gibt. So bleibt dem Anwen- 
der immer nur ein Kompromiß und er 
wird auf das Programm zurückgreifen, 
das für ihn die wenigsten Nachteile auf- 
weist. 

(Wolfgang Czerny/wb) 


Bezugsquellon: 
CompyShop, Gneisenaustr. 29, 4330 Mühlheim/Ruhr, 
Tel. (0208) 497169 

Münzenioher, Tolzer Str. 4, 8150 Holzkirchen, 

Tel. (08024) 1814 
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150 
Befehle 
mit 


Basic XE 


Wem das Atari-Basic zu unkom- 
fortabel und zu langsam ist, 
bekommt für etwa 300 Mark 
Basic XE auf Modul. Es ist das 
leistungsfähigste Basic für 
Atari-Computer mit bis zu 128 
KByte-RAM. 


asic XE ist eine Weiterent- 

wicklung von Basic XL, wobei 

natürlich den besonderen Fä- 
higkeiten des neuen Atari-Computers 
130XE Rechnung getragen wurde. 
Weiterentwicklung bedeutet vor allem 
die Hinzunahme neuer Befehle. Dabei 
sah man sich allerdings scheinbar zu 
Kompromißlösungen gezwungen. Kam 
man bei Basic XL noch mit einem Modul 
aus, so muß bei Basic XE neben dem 
Modul zusätzlich noch eine Diskette als 
Speichermedium herhalten. Dies birgt 
nun gleich zwei Nachteile in sich. Zum 
einen kann man ohne Diskettenlauf- 
werk nicht mehr alle Befehle von Basic 
XE nutzen, zum anderen belegt das 
File, das die zusätzlichen Befehle ent- 
hält, immerhin 91 Sektoren auf der Dis- 
kette. Dafür sindaber auf der Masterdis- 
kette bereits einige kleine Programme 
enthalten, welche die Besonderheiten 
von Basic XE demonstrieren sollen. 
Neben Modul und Diskette erhält man 
natürlich auch ein Handbuch, das 
bedauerlicherweise in englischer Spra- 
che gehalten ist. Doch auch ohne grö- 
Bere Englischkenntnisse sollten die 
Funktionen von Basic XE aufgrund der 
zahlreichen Beispiellistings in diesem 
Handbuch verständlich werden. 

Zu den Befehlen, die Bestandteil des 
Diskettenfiles sind, gehört auch der 
Befehl »FAST«e. Mit dieser Anweisung 
gelangt man in den sogenannten »Fast 
Modus« von Basic XE. Ist dieses Basic 
bereits im normalen Modus rund dop- 
pelt so schnell wie das Standard-Atari- 
Basic, so erhöht sich im »Fast Modus« 
die Verarbeitungsgeschwindigkeit von 
Programmen nochmals um den Faktor 
zwei. Dieinsgesamtalso etwa vierfache 
Steigerung der Geschwindigkeit reicht 
so oftmals schon aus, um Programme 
zu schreiben, die sonst ohne Maschi- 
nensprache-Unterstützung zu langsam 


wären. Ebenfalls auf Diskette befindet 
sich ein File, das nur vom Atari 130XE 
oder aufgerüsteten Atari 800XL-Com- 
putern verarbeitet werden kann. Mit 
dem Befehl »EXTEND« spricht man die 
zusätzlichen 64 KByte an, die dem 
130XE zur Verfügung stehen. Dieser 
Befehl verlegt das momentan im Spei- 
cher befindliche Programm in diese 64 
KByte und schafft so Platz für andere 
Programme und Daten. Der Zusatzspei- 
cher ist in vier Blocks von jeweils 16 
KByte aufgeteilt. Jedem Block ist eine 
Nummer von O bis 3 zugeordnet. Ein 
spezieller POKE-Befehl erlaubt dann 
unter Angabe der Blocknummer, ein- 
zeine Daten in den Zusatzspeicher zu 
verlegen. 


Player/Missiles 
mit Komfort 


Zu den neuen Befehlen, die gegen- 
über Basic XL hinzugekommen sind, 
gehören auch eine Reihe von Anwei- 
sungen, die die Player/Missile-Pro- 
grammierung betreffen. War man im 
normalen Basic noch gezwungen, eine 
Vielzahl verschiedener Adressen zu 
kennen, um Player oder Missiles anzu- 
sprechen, so erübrigt sich dies in Basic 
XE fast vollständig. Für nahezu jede 
Manipulation existiert ein eigener 
Befehl. »PPMMOVE« beispielsweise ver- 
anlaßt eine beliebige Richtungsände- 
rung eines Players oder Missiles. Auch 
die Kollisionsabfrage läßt sich mit einem 
einzigen Befehl mit dem Namen »BUMP« 
ausführen. Als recht nützlich erweist 
sich die Anweisung »PMCLEAR«, mit 
der sich der Speicherbereich, in dem 
ein Player oder eine Missile unterge- 
bracht ist, schnell und einfach löschen 
läßt. 

Die Stringverarbeitung, die im norma- 
len Basic etwas stiefmütterlich behan- 
delt wird, ist nun wesentlich vereinfacht 
und damit auch komfortabler geworden. 
Es fängt damit an, daß man mit Basic XE 
auch indizierte Springfelder dimensio- 
nieren kann. Mit der Anweisung »DIM 
A$ (3,10)« beispielsweise werden drei 
Felder mit der Länge 10 erzeugt, die 
sich dann mit »A$(1)«, »A$(2)e und 
»A$(3)« aufrufen lassen. Einzelne Teile 
dieser Felder bearbeitet man dann mit 
den Befehlen »LEFT$«, »RIGHT$«, 
»MID$« oder »FIND$«. So gibt »FIND$« 
beispielsweise an, ob und wo sich ein- 
zelne Zeichen in einem String befinden. 
Das Sortieren von Arrays ist mit Basic 
XE ebenfalls kein Problem mehr. Hierzu 
verwendet man die Befehle »SORTUP« 
und »SORTDOWN«. Numerische oder 
alphanumerische Felder lassen sich 
also in aufsteigender oder abfallender 
Folge sortieren. Dabei kann man entwe- 
der das gesamte Feld oder nur ausge- 
wählte Teilbereiche erfassen. 


Programmieren, 
fast wie in Pascal 


‚Auffallend sind vor allem auch Pascal- 
ähnliche Elemente, die in Basic XE auf- 
tauchen. Unterprogramme lassen sich 
zum Beispiel als Prozeduren gestalten. 
Diese können mit »CALL« aufgerufen 
und mit »EXIT« wieder verlassen wer- 
den. Innerhalb von Prozeduren kann 
man dann mit lokalen Variablen arbei- 
ten. Das heißt, solche Variablen können 
zwar namensgleich mit anderen im Pro- 
gramm verwendeten Variablen sein, 
sind mit diesen jedoch nicht identisch. 
Ebenfalls von Pascal entlehntistsowohl 
die »WHILE-ENDWHILE«-Schleife als 
auch die bedingte Verzweigung »IF- 
ELSE-ENDIF«. Auf diese Weise lassen 
sich vor allem die uneleganten und 
zur Unübersichtlichkeit beitragenden 
»GOTO«-Anweisungen weitgehend aus 
einem Programm verbannen. Mit Basic 
XE ist es also möglich, bis zu einem 
gewissen Grad strukturiert zu program- 
mieren und so eine wesentlich bessere 
Übersichtlichkeit eines Programms zu 
erzielen. Dies wird zudem durch die Tat- 
sache unterstützt, daß ein Listing in 
Basic XE formatiert ausgegeben wird. 


102 Rem — 
11@ Ren BEISPIEL-LISTING 
120 Rem mit Basic XE 

138 Rem —————— 
148 Graphics @ 

158 ? "RATEN SIE EINE ZAHL” 
16@ ? "ZWISCHEN ı UND 109" 
178 7 

182 Zahl=Random(1,108) 

198 While Versuch<>Zahl 


208 ? “WIE LAUTET IHR VERSUCH ?"; 
218 Input Versuch 

228 I# VersuchcZahl 

258 ? "DIE ZAHL IST ZU KLEIN" 
228 Elise 

2s@ 14 Versuch>Zahl 

268 ? "DIE ZAHL IST ZU GROSS" 
E22] Endif 

288 Endif 


Listing. Ein typisches Basic XE-Programm. 


Schleifen und »IF«-Anweisungen wer- 
denalso automatisch eingerücktundso 
optisch hervorgehoben. Ein typisches 
Basic XE-Programm zeigt das Listing 1. 

Viele der neuen Routinen sind dem 
geübten Programmierer bereits von oft 
benötigten Maschinensprache-Unter- 
programmen her bekannt. So ver- 
schiebt man Speicherblöcke mit dem 
Befehl»MOVE«. Dadurch kann man bei- 
spielsweise den Inhalt des Bildschirm- 
speichers in einem String ablegen oder 
den Atari-Zeichensatz kopieren. Die 
automatische Zeilennumerierung bei 
der Programmeingabe und die Neu- 
numerierung eines bestehenden Pro- 
gramms sind ebenfalls ohne Maschi- 
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nenhilfsroutinen durchführbar. Hierzu 


dienen die Befehle »NUM« und 
»RENUM«. Benötigt man eine Liste aller 
im Programm verwendeten Variablen, 
so erlaubt das der Befehl »LVAR«. Zur 
schnellen Umwandlung von dezimalen 
in hexadezimale Zahlen benutzt man 
den »HEX$«-Befehl. Nützlich ist der 
Befehl »SETe. Mit ihm lassen sich eine 
Reihe von grundsätzlichen Parametern 
allgemeiner Art ändern. So ermöglicht 
dieser Befehl beispielsweise die Aus- 
wahl, mit welchem Zeichen eine Input- 
‚Anweisung den Benutzer zur Eingabe 
auffordert. Die Funktion der »BREAK«- 
Taste kann auch auf diese Weise unter- 
bunden werden. Selbst das Dimensio- 
nieren von Strings erübrigt sich mitun- 
ter. Bis zu einer Größe von 255 Zei- 
chen, abhängig von der jeweiligen 
»SET«-Einstellung, werden Strings 
nämlich automatisch dimensioniert. 
Insgesamt können 16 verschiedene 
Parameter mit diesem Befehl beeinflußt 
werden. Die Einstellung der Parameter 
fragt man mit dem Befehl »SYS« ab. 
Hilfreich bei der Fehlersuche ist der 
»TRACE«-Befehl. Vor der Ausführung 
einer Programmzeile erscheint die 
jeweilige Zeilennummer auf dem Bild- 
schirm. So kann man leicht kontrollie- 


ren, ob sich ein Programm in den 
gewünschten Bahnen bewegt. Die 
Textausgabe erfolgt wahlweise invers 
oder normal, was einfach durch die bei- 
den Befehle »INVERSE« und »NOR- 
MAL< gesteuert wird. Man kann einen 
auszugebenden Text aber auch noch 
formatiert darstellen. Dies geschieht 
mit dem »PRINT USING«-Befehl. 

Auch einige DOS-Funktionen finden 
sich in BasicXE wieder. Soläßtsich das 
Inhaltsverzeichnis einer Diskette zum 
Beispiel mit dem Befehl »DIR« abrufen. 
Für das Löschen und Umbenennen von 
Files auf Diskette existieren eigene 
Befehle. Neben den gewohnten Befeh- 
len »GET«, »PUTe, »PRINT« und »INPUT«, 
die zum Lesen und Schreiben von 
Daten auf Diskette verwendet werden, 
stellt Basic XE zu diesem Zweck einige 
neue Befehle zur Verfügung. Sie zeich- 
nen sich vor allem durch eine höhere 
Ausführungsgeschwindigkeit aus. Mit 
»BPUT< und »BGET< schreibt bezie- 
hungsweise liest man ganze Speicher- 
blöcke von Diskette. Auf diese Weise 
lassen sich beispielsweise Grafikbilder 
schnell und einfach von Diskette laden 
oder speichern. »RPUT«< und »RGET« 
sind für das Speichern und Lesen von 
Records mit fester Länge verantwort- 


lich. Dabei kann ein Record sowohl aus 
einem String wie auch einer Gleitkom- 
mazahl bestehen. Schließlich gibt es 
noch die Befehle »BLOAD« und 
»BSAVE«, die man für die Behandlung 
von Binärfiles im »DOS LOAD«-Format 
benutzt. Normale Maschinensprachefi- 
les können also von Basic aus geladen 
und gestartet werden. 


Gut, aber teuer 


Die Qualität der Befehle und der 
Befehlsumfang (Basic XE umfaßt zirka 
150 Befehle) lassen kaum Wünsche 
offen. Lediglich das Laden zusätzlicher 
Befehle von Diskette scheint keine 
glückliche Lösung zu sein. Das ent- 
Scheidende Kaufhindernis dürfte aller- 
dings der Preis von Basic XE sein. Mit 
etwa 300 Mark ist es wohl eines der 
teuersten Programme, die derzeit für 
Atari-Computer angeboten werden. 
Der Preis fällt um so mehr ins Gewicht, 
wenn man bedenkt, daß beispielsweise 
Turbo-Basic XL bei ähnlichen Lei- 
Stungsmerkmalen doch wesentlich billi- 
ger zu haben ist. . 

(Wolfgang Czerny/wb) 


Bezugsquelle: 
CompyStop, Gneisenaustr. 29, 4330 Mühlheim/Ruhr, 
et (0208) 497169 


DOS- 
Parade 


Wichtigstes Hilfsmittel zum 
Arbeiten mit einer Diskettensta- 
tion ist das DOS. Doch welche 
der verschiedenen DOS-Versio- 
nen soll man wählen? 


OS ist die Abkürzung für Disk 
Operating System oder auf 
deutsch Disketten Betriebssy- 
stem. Betreibt man ein oder mehrere 
Diskettenlaufwerke am Atari, so kommt 
man ohne ein solches DOS nicht aus. 
Die zum Betrieb eines Laufwerks nöti- 
gen Routinen sind nämlich nicht im 
eigentlichen Betriebssystem des Atari 
verankert, sondern müssen stets von 
Diskette geladen werden. Dies hat den 
Vorteil, daß man sich, abhängig vom 
verwendeten Laufwerk und den spe- 
ziellen Bedürfnissen, das jeweils opti- 
male DOS heraussuchen kann. 
Von Atari selbst gibt es nun schon die 
vierte offizielle DOS-Version. Angefan- 
gen hat es mit »DOS 1.0«. Diese erste 


Version, die zusammen mit dem Atari- 
Laufwerk 810 Ende 1979 erschien, war 
noch mit etlichen Nachteilen und klei- 
neren Fehlern behaftet. So gab es bei- 
spielsweise noch kein »AUTORUN. 
SYS«-File, um Programme nach dem 
Einschalten des Computers automa- 
tisch zu laden und zu starten. Anderer- 
seits konnte zum Kopieren von Pro- 
grammen und Disketten nur ein relativ 
kleiner Puffer und nicht der gesamte 
RAM-Speicher verwendet werden. 
Auch war der wahlfreie Zugriff auf ein- 
zelne Byte in bestimmten Sektoren mit 
den NOTE- und POINT-Befehlen noch 
nichtimplementiert. Es verwundert also 
kaum, daß Atari bereits Anfang 1980 
eine neue Version, nämlich »DOS 2.0« 
(Bild 1) herausbrachte. 

Dieses DOS war nun freivon den Feh- 
lern und den gröbsten Nachteilen der 
ersten Version. Allerdings ging man 
auch hier Kompromisse ein. War DOS 
1.0 noch ständig komplett im Speicher 
vertreten, teilte man DOS 2.0 in zwei 
getrennte Files auf. Zum einen in das 
DOS.SYS-File, das durch den Boot- 
Vorgang in den Speicher des Atari 
gelangte, zum anderen in das DUPSYS- 
File, das nur bei Bedarf durch den DOS- 
Aufruf von Basic aus geladen wurde. 
Vorteil dieser Methode ist die Einspa- 
rung von wertvollem Speicherplatz. Nur 


noch rund 2 Kilobyte des RAM- 
Speichers gingen durch die Belegung 
des DOS.SYS-Files verloren. Die wich- 
tigsten Funktionen, wie das Speichern 
und Laden von Programmen waren 
dabei noch durchführbar. Auch konnte 
man mit speziellen XIO-Routinen bei- 
spielsweise Disketten formatieren oder 
Files auf Diskette löschen. Spätestens 
aber zum Kopieren von Programmen 
oder zur Ausgabe des Disketteninhal- 
tes auf dem Bildschirm, mußte man das 
DUPSYS-File aufrufen. Dabei wurden 
im Arbeitsspeicher befindliche Basic- 
Programme jedoch überschrieben. Zur 
Rettung des Speicherinhaltes mußte 
man sein Programm daher entweder 
vor jedem DOS-Aufruf speichern oder 
aber ein sogenanntes MEM.SAV-File 
anlegen, in welches das Programm vor 
dem Laden des DUPSYS-Files automa- 
tisch gespeichert wurde. Dies ist aber 
zeitaufwendig und bedeutet zusätzli- 
chen Platzverbrauch auf der Diskette. 
Abgesehen davon konnte man mit die- 
sem DOS jedoch zufrieden sein, undes 
ist wohl heute noch das meistverbrei- 
tete DOS für Atari-Computer. 

Als 1983 ein verbessertes Atari- 
Laufwerk 1050 erschien, entschloß 
man sich bei Atari auch für eine neue 
DOS-Version, dem DOS 3.0 (Bild 2 
zeigt das Hauptmenü von DOS 3.0). 
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SIE OPERATING SYSTEM IT VERSION 2.05 
YRIGHT 1988 ATı 


DISK DIRECTORY I. 
RUN CARTRIDGE 3. 


FORMAT DISK 
DUPLICAT| 


gELEcH zren on SEEREN ron rem 


Bild 1. Das Hauptmenü zu DOS 2.0. Sämtliche Disketten- 
Operationen lassen sich von hier ausführen. Da Disketten 
allerdings mit maximal 720 Sektoren zu formatieren sind, 
ergibt sich eine Gesamtspeicherkapazität von rund 88 KByte. 


Copyright 


Gem sau 
Geb nach 
hex adar 

E-Funktion 


Eitren 


den 
eichern 
jernichten 
eunennen 
oatrect 
andle D0S 2 protect 


Deine Kahl? Inhalt 
Dateispezifikation? Di: 
Ausgabegeraet? E 


Bild 2. DOS 3.0 präsentiert sich mit einem etwas anders auf- 
gebauten Menü. Als Besonderheit gibt es hier die »Hilfen«- 
Funktion, mit der man sich erklärende Texte zu den einzelnen 
Menüfunktionen direkt auf den Bildschirm holen kann. 


Der Hauptgrund hierfür war eine spe- 
zielle Eigenschaft des neuen Lauf- 
werks. Neben der normalen Schreib- 
dichte, die auch das Laufwerk 810 
beherrscht, kann das 1050er Laufwerk 
in einer höheren Schreibdichte (enhan- 
ced density) arbeiten. Dies ist nicht mit 
der doppelten Schreibdichte (double 
densitiy) zu verwechseln. Denn dies 
würde beim Atari 1050-Laufwerk be- 
deuten, daß pro Sektor statt 128 Byte 
256 Byte Platz fänden. Bei gleicher 
Sektorenzahl würde man also die dop- 
pelte Speicherkapazität erreichen. 


DOS 3.0 


Erhöhte Schreibdichte bedeutet nur, 
daß statt 18 jetzt 26 Sektoren pro Spur 
angelegt werden können. Die Anzahl 
erhöht sich also von 720 auf 1040. 
Praktisch verfügt man nur über 1023 
Sektoren, da das Laufwerk die übrigen 
17 nicht mehr verwalten kann. 

Bei DOS 3.0 kam man auf die kuriose 
Idee, jeweils acht Sektoren zu einem 


DISK OPERATING SYS’ 
COPYRICHT 1994 ATARI 


DISK DIRECTORY I 
RUN CARTHIDGE 


FORMAT Dr; 
BUPLZEATE Drsx 
INARY SAUE 


COPY FILE 
DELETE FILECS L. 
RENAME FILE 

Lock FILE 

EN. FILE 
- WRITE 505 FILES 


a ITEM or IEREE) For menu 
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Block von 1024 Byte zusammenzufas- 
sen. Dies erleichtert dem Directory 
zwar die Verwaltungsarbeit, hat aber 
zwei entscheidende Nachteile. Einmal 
wird dadurch in der Regel enorm viel 
Platz verschwendet: Die Mindestlänge 
eines Programms auf der Diskette 
beträgt nun nämlich einen Block bezie- 
hungsweise acht Sektoren. Selbst ein 
Programm mit einer Länge von nur 10 
Byte belegt damit einen ganzen Block, 
also 1024 Byte. Außerdem ist dieses 
Format unglücklicherweise nicht kom- 
patibel zu DOS 2.0. Eine mit DOS 3.0 
formatierte Diskette kann also nicht 
unter DOS 2.0 gelesen werden. Umge- 
kehrt sind die alten Atari-Laufwerke 810 
nicht mehr in der Lage, DOS-3.0 Disket- 
ten zu verarbeiten. Ein unter DOS 2.0 
erstelltes File kann zwar auf DOS 
3.0-Format umgewandelt werden, um- 
gekehrt ist dies jedoch nicht durchführ- 
bar. Zum Trost sei aber gesagt, daß zu 
diesem Zweck bereits Utilities in ver- 
schiedenen Zeitschriften erschienen 
sind. 


ZEN II VERSION BEREN 


Bild 3. Wer DOS 2.0 
bereits kennt, 
kommt mit DOS 2.5 
schnell zurecht. 
Der einzige Unter- 
schied: Mit »I« 
formatiert man eine 
Diskette im enhan- 
ced Modus und mit 
»P« erhält man ein 
Diskettenformat 
identisch mit 

DOS 2.0. 


Trotz dieser Nachteile mußte man bis 
zur Einführung des neuen Atari 130XE 
warten, bis die vorläufig letzte Version, 
nämlich DOS 2.5, erschien. DOS 2.5 
kann man getrost als das beste DOS 
bezeichnen, das von Atari bisher gelie- 
fert wurde (Bild 3). Es unterstützt die 
erhöhte Schreibdichte des 1050er 
Laufwerks. Die Diskettenverwaltung 
durch Blocks ist aufgehoben worden, 
so daß die Filekompatibilität zur Version 
2.0 wieder hergestellt ist. Es sind also 
einzelne Sektoren angesprochen, 
deren Anzahl aber gestiegen ist. Dies 
hatauch den Vorteil, daß man Disketten 
mit erhöhter Schreibdichte wenigstens 
zum Teil mit dem alten Laufwerk 810 
lesen kann. Lediglich die Sektoren zwi- 
schen 720 und 1023 bleiben dem 
1050er Laufwerk vorbehalten. Sind 
mehr als 999 Sektoren frei, so werden 
diese übrigens nicht mehr angezeigt. 
Dadurch sollte man sich jedoch nicht 
irritieren lassen. Natürlich unterstützt 
DOS 2.5 auch die 128 KByte des 
130XE. Vor allem kann man im zusätzli- 
chen - 64 KByte umfassenden - RAM- 
Speicher eine sogenannte RAM-Disk 
anlegen, die wie ein Diskettenlaufwerk 
mit der Laufwerknummer 8 angespro- 
chen wird. Man verfügt dann über rund 
500 »Sektoren«, deren Inhalt quasi 
ohne Zeitverlust geladen oder be- 
schrieben werden kann. Außerdem hat 
man noch einige andere neue Fähigkei- 
ten in das DOS aufgenommen, die zwar 
nicht im Menü aufgeführt sind, jedoch 
über ».COM«-Files ausgeführt werden 
können. Versehentlich gelöschte Pro- 
gramme wiederherzustellen, sofern sie 
nicht bereits überschrieben wurden, ist 
nun kein Problem mehr. DOS 3.0-Files 
lassen sich in das DOS 2.5-Format 
umwandeln. Auch kann man AUTO- 
RUN.SYS-Files zum automatischen 
Programmstart von Basic-Programmen 


IN i 
EERLEEEEER) 


HEERREERSRENR 


= 
= 
= 
= 
= 
= 
= 
E3 
= 
= 
= 
= 
= 
= 
= 
= 


i 


Bild 4. DOS XL befindet sich ständig im RAM-Speicher. Gibt 
man von Basic aus »DOS« ein, gelangt man ohne Disketten- 
„zugriffe zur Kommandozeile. Befindet sich zu dem Zeitpunkt 
ein Basic-Programm im Speicher, wird es nicht gelöscht. 


erzeugen. Da für jedes vorgesehene 
Laufwerk 128 Byte Speicherplatz im 
DOS reserviert werden, ist es ein leich- 
tes, die Anzahl der verwendeten Lauf- 
werke an die eigene Konfiguration an- 
zupassen. So lassen sich auch noch 
einige Byte einsparen. Etwas störend 
wirkt sich die Anordnung des Directory- 
Eintrags auf einer DOS 2.5 formatierten 
Diskette aus. Da dieser Eintrag nicht in 
einem Stück, sondern verteilt auf der 
Diskette plaziert ist, macht sich der 
Schreib-/Lesekopf des Laufwerks 
immer wieder durch lautstarke Posi- 
tionswechsel bemerkbar. 

Natürlich gibt es auch DOS-Versio- 
nen von anderen Herstellern als Atari, 
beispielsweise DOS XL 2.3 von OSS. 
Unter dieser DOS-Version laufen so 
bekannte Programme wie »Action«, 
»MAC/65« oder »Basic XL«. Obwohl 
dies der Name nicht vermuten läßt, ist 
DOS XL für alle Atari-Computer ver- 
wendbar, da drei verschiedene Versio- 
nen auf der Master-Diskette vorhanden 
sind - passend zu der jeweiligen Spei- 
cherkonfiguration. Die Kommandozeile 
mit einem teilweise aufgelisteten Direc- 
tory zeigt Bild 4. Neben der normalen 
Schreibdichte wird bei DOS XL sogar 
die doppelte Schreibdichte unterstützt. 
Um dies zu nutzen, muß man allerdings 
entweder das Atari 1050-Laufwerk 
hardwaremäßig erweitern (wie im Arti- 
kel »Floppy-Speeder« in diesem Son- 
derheft beschrieben), oder man ver- 
wendet ein Laufwerk eines Fremdher- 
stellers. Die Speicherkapazität einer 
Diskette steigt dann allerdings von 90 
KByte unter normaler Schreibdichte 
oder 130 KByte bei erhöhter Schreib- 
dichte auf stolze 176 KByte. Dieses 
Format ist dann natürlich von den Atari- 
DOS-Versionen nicht mehr lesbar. Ver- 
zichtet man aber auf doppelte Schreib- 
dichte, so besteht Filekompatibilität 
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zwischen DOS XL und DOS 2.0 bezie- 
hungsweise DOS 2.5. 

DOSXL verzichtet auf eine Trennung 
zwischen DOS.SYS und DUPSYS-File. 
Das heißtaber nicht, daß keine weiteren 
Files nachgeladen werden. Man unter- 
scheidet hier zwischen Kommandos, 
die das DOS ohne weiteres Zutun aus- 
führt und Anweisungen, die nur durch 
Nachladen eines entsprechenden Files 
ausgeführt werden. Dies hat den Vor- 
teil, daß das eigentliche DOS nur wenig 
Speicherplatz im RAM belegt, zumal es 
recht geschickt hinter dem Betriebs- 
system ROM abgelegt ist. Im eigentli-. 
chen Basic-RAM-Bereich befindet sich 
nur noch eine Sprungtabelle, die unge- 
fähr 500 Byte beansprucht. Der Nach- 
teil dieser Methode besteht jedoch 
darin, daß die extern gelagerten Files 
relativ viel Platz auf der Diskette ver- 
brauchen. Es ist also ratsam, auf die 
jeweilige Arbeitsdiskette nur diejenigen 
DOS-Files zu kopieren, die man unbe- 
dingt benötigt. Auch das Menü von 
DOSXL gehört zu diesen Files, denn im 
Normalfall arbeitet DOS XL nur mit einer 
Kommandozeile. Hat man alle DOS- 
Befehle im Kopf, läßt es sich auf diese 
‚Art sogar wesentlich schneller arbeiten 
als mit einem Menü. 

Eine Besonderheit stellt die soge- 
nannte Batch-Verarbeitung dar. Man 
kann hierbei beliebigen Text und DOS- 
‚Anweisungen in einem File zusammen- 
stellen. Versehen mit dem Extender 
».EXC« besitzt man dann ein File, das 
man von der Kommandozeile aus aufru- 
fen kann. Das File »STARTUPEXC«, das 
dem herkömmlichen »AUTORUN.SYS« 
entspricht, ist ein Beispiel für so ein 
Batch-File. Auch häufig verwendete 
Befehlssequenzen lassen sich auf die- 
se Art zeitsparend ausführen. Neben 
den kommerziellen Programmen kann 
man natürlich auch auf die verschieden- 


Bild 5. Happy-DOS (Listing des Monats in Ausgabe 3/86) ist 
ähnlich aufgebaut wie DOS XL. Es liegt ebenfalls stets im 
Speicher vor. Als besonderen Leckerbissen bietet Happy-DOS 
noch eine RAM-Disk, die insgesamt 12 KByte umfaßt. 


sten DOS-Versionen zurückgreifen, die 
beispielsweise als Public Domain-Pro- 
gramme erhältlich sind, oderals Listings 
in Zeitschriften veröffentlicht werden. 
Ein Beispiel ist das in Happy-Computer, 
Ausgabe 3/86 als Listing des Monats 
abgedruckte Happy DOS (Bild 5). Ähn- 
lich wie bei DOS XL wird nur mit einer 
Kommandozeile gearbeitet. Jedoch 
sind alle Befehle im DOS.SYS-File ent- 
halten, so daß ein Nachladen von Files 
entfällt. Trotzdem beansprucht das 
DOS-File nur 37 Sektoren auf Diskette. 
Zusätzlichistnoch eine 12 KByte große 
RAM-Disk integriert, die auch mit den 
normalen Atari-Computern angespro- 
chen werden kann. Es läßt auch zu, wie 
in DOS 2.5, Disketten mit erhöhter 
Schreibdichte zu formatieren. 

Die Entscheidung für ein bestimmtes 
DOS sollte vor allem von der allgemei- 
nen Filekompatibilität abhängig ge- 
macht werden. Speziell DOS 3.0 sollte 
man trotz seiner relativ guten Benutzer- 
führung also vermeiden. Kommt es auf 
äußerste Platzersparnis in RAM an, 
oder besitzt man ein Laufwerk für dop- 
pelte Schreibdichte, so istman mit DOS 
XL am besten bedient. Allgemein kann 
man jedoch sagen, daß DOS 2.5 von 
Atari das derzeit interessanteste Dis- 
ketten-Betriebssystem darstellt. Arbei- 
tet man mit Basic-Versionen wie zum 
Beispiel Turbo-Basic XL, kann man auf 
den Sprung ins DOS-Menü und somit 
auf das Laden der DUPSYS-Datei auch 
meist verzichten. Einige DOS-Funktio- 
nen sind dann nämlich bereits als Basic- 
Befehle vorhanden. Die integrierten 
Utilities und die Diskettenformatierung 
in normaler oder erhöhter Schreib- 
dichte, lassen also gute Zukunftsaus- 
sichten für DOS 2.5 vermuten. 

(Wolfgang Czerny/ub) 


Bezugsquelle: CompyShop, Gneisenaustr. 29, 
4330 Müniheim/Ruhr, Tel (0208) 497169 
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Schnell stößt man in Basic an 
die Grenzen der erreichbaren 
Geschwindigkeit. Selbst eine 
optimale Programmierung ver- 
leiht Basic keine Flügel. Wer es 
eilig hat, sollte auf einen Assem- 
bler zurückgreifen. 


s gibt sicherlich verschiedene 
E Gründe dafür, auf Assembler- 

Programmierung umzusteigen. 
Vorrangig dürfte aber die extreme 
Geschwindigkeitssteigerung gegen- 
über einer Hochsprache, wie beispiels- 
weise Basic, sein. Auch diejenigen, die 
sich lieber mit der Hardware eines Com- 
puters beschäftigen, greifen vorzugs- 
weise auf Assemblerprogrammierung 
zurück. Denn nicht selten ist es nur 
dann möglich, bestimmte Bauteile im 
Computer anzusprechen und zu pro- 
grammieren. Wer beispielsweise den 
‚Antic, also den speziellen Grafikprozes- 
sor im 800XL/130XE, optimal nutzen 
möchte, kommt an Assembler nicht vor- 
bei. 

Übrigens sind Assembler und Ma- 
schinensprache nicht dasselbe. Wer 
nämlich in Maschinensprache program- 
miert, der ordnet jeder einzelnen Spei- 
cherzelle im RAM-Speicher einen 
bestimmten Hexadezimalcode zu. Es 
wird also nur mit Zahlenwerten gearbei- 
tet. In Assembler andererseits program- 
miert man mit leichter verständlichen 
Befehlen, den sogenannten Mnemo- 
nics. Mit dem Editor eines Assemblers 
gibt man Befehle wie LDA oder CMP 
ein. Diese werden dann vom Assembler 
in Maschinencode umgewandelt. Erst 
wenn dieser Code im Speicher vorliegt, 
kann der Microprozessor die Befehle 
abarbeiten. 

Aber nicht allein Zeitgewinn oder 
auch Platzersparnis sind gute Gründe 
für die Anwendung von Maschinen- 
sprache. Um beispielsweise die Fähii 
keiten des Atari-Betriebssystems aus- 
zureizen, muß man zumindest einige 
Programmteile in Maschinensprache 
schreiben. 

Ob man eine kleine Unterroutine für 
ein Basic-Programm oder ein ganzes 
Programm vollständig in Maschinen- 
sprache schreiben will, ein Assembler 
ist auf jeden Fall eine Iohnende Investi- 
tion. 

Von der Firma OSS (Optimized Sy- 
stems Software) gibt es für etwa 250° 


MAC/65: 
ein Assembler sprintet los! 


Mark das Programmodul »MAC/65«. Es 
enthält alle wesentlichen Bestandteile 
eines Assemblers - nämlich einen zei- 
lennummernorientierten Editor, ähnlich 
wie in Basic, den eigentlichen Assem- 
bler und einen Monitor, über den man 
seine Maschinensprachprogramme 
austesten kann. 

Die Modulform bietet mehrere wich- 
tige Vorteile gegenüber einem Pro- 
gramm auf Diskette oder Kassette. So 
kann man beispielsweise nach Lust und 
Laune mit jeder Kombination von Dis- 
kettenlaufwerken arbeiten, da man ja in 
der Wahl des Diskettenbetriebssy- 
stems völlig frei ist. Außerdem muß man 
nicht nach einem eventuellen System- 
absturz, der ja bei Programmierung auf 
Maschinenspracheebene relativ schnell 
passieren kann, den Assembler neu 
laden. Darüber hinaus hat es OSS 
durch Umschaltung zwischen ver- 
schiedenen Speicherbänken ge- 
schafft, den Speicherplatzbedarf von 
MAC/65 auf 8 KByte zu beschränken. 

Nun aber zum eigentlichen Programm 
- beginnen wir mit dem Editor: 

Genau wie im normalen Atari-Basic 
hat man es mit einem zeilennummern- 
orientierten Editor zu tun. Er ist jedoch 
um einige sehr wichtige Kommandos 
erweitert. So kann man mit FIND 
bestimmte Programmteile suchen, mit 
REP ersetzen, mit DEL Programmberei- 
che löschen und mit RENUM das 
gesamte Programm neu durchnumerie- 
ren. Auch ein Befehl zur automatischen 
Erzeugung von Zeilennummern fehlt 
nicht. Eine praktische Sache ist, daß 
MAC/65, genau wie Atari-Basic, die 
Programmzeilen unmittelbar nach Ein- 
gabe auf ihre Richtigkeit überprüft und 
sofort einen eventuellen Fehler anzeigt. 

Nun zum Assembler, den man mit 
dem Kommando ASM startet. Dabei 
kann man noch angeben, woher - falls 
nicht aus dem RAM-Speicher - der Pro- 
grammtext genommen werden soll, 
wohin die Ausgabe gehen soll und 
wohin der erzeugte Maschinencode 
geschrieben wird. 

Selbstverständlich versteht MAC/65 
alle normalen 6502-Mnemorics. 

Datenfelder kann man einfach mit 
dem Befehl ».Byte« einfügen — wobei 
man entweder dezimale, hexadezimale 
oder ASCII-Darstellung wählen (und 
mischen) kann. Sehr nützlich ist dabei 
die Möglichkeit, zu allen errechneten 
Werten eine Konstante zu addieren. 


Weitergehende Befehle in dieser Rich- 
tung sind ».SBYTE« (Zeichen in interner 
Darstellung), »WORD« (Doppelbyte), 
».DBYTE« (Doppelbyte in umgekehrter 


Schreibweise), ».CBYTE« (Text mit 
invertiertem letzten Zeichen) und 
».FLOAT« (Fließkommazahl). Der 


»MAC/65«-Assembler erlaubt auch das 
Arbeiten mit Markierungen (Labels) 
innerhalb eines Programms. Die Länge 
einer Zeichenkette läßt sich zum Bei- 
spiel folgendermaßen berechnen: 
1000 TEXT .BYTE “Happy Computer” 
1010 TEXT_LEN = %*-TEXT 

Auch zu Multiplikationen, Divisionen 
oder Bitoperationen in Ausdrücken ist 
der »MAC/65« fähig. 

Nützlich ist die konditionelle Assem- 
blierung. Mit Hilfe dieser Funktion las- 
sen sich bei der Assemblierung be- 
stimmte Programmteile von irgendeiner 
Bedingung abhängig machen. Hat man 
beispielsweise folgende Variablen fest- 
gelegt: 

1000 DEUTSCH=1 
1010 VERSION=DEUTSCH 
dann kann man später mit 


2000 .IF VERSION=DEUTSCH 

2010 .BYTE *Bitte Diskette 
einlegen” 

2020 „ELSE 

2030 .BYTE "Please insert disk” 

2040 .„ENDIF 


zwischen den verschiedenen Fällen 
unterscheiden. So braucht man keine 
verschiedenen Quelltexte, um unter- 
schiedliche Versionen eines Pro- 
gramms zu schreiben. 

In diesem Zusammenhang ist die 
Funktion ».REF« wichtig. Mit ihr kann 
man innerhalb einer ».IF«-Anweisung 
feststellen, ob ein bestimmtes Label 
innerhalb des Textes bereits benutzt 
wurde. Dies gestattet Unterroutinen nur 
dann mit einzubinden, wenn sie tat- 
sächlich gebraucht werden. Zusammen 
mit der ».INCLUDE«-Funktion, mit der 
sich Programmteile von Diskette einbin- 
den lassen, kann man auch Unterpro- 
gramme aus Bibliotheken nutzen. 

Ein wichtiges Merkmal von 
»MAC/6S« ist die Fähigkeit, Makros zu 
verarbeiten (daher auch der Name 
MAC/65). Mit Hilfe von Makros kann 
man mehrere normale Assemblerbe- 
fehle unter einem Wort zusammenfas- 
sen. Es lassen sich auch Parameter 
übergeben und verarbeiten. Ein Bei- 
spiel für eine einfache Makrodefinition: 
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: 


1000 .MACRO JEQ 


Zunächst wird hierbei der Name des 
Makros festgelegt. »JEQ« soll hier 
einen Befehl simulieren, der im norma- 
len 6502-Befehlssatz nicht vorhanden 
ist, nämlich einen konditionellen 
Sprungbefehl zu einer absoluten 
Adresse (in diesem Beispiel, falls die 
‚Abfrage zutrifft). Falls nicht (Branch Not 
Equal), wirdan das Ende der Makrodefi- 
nition verzweigt. Das Programm läuft 
also beim nächstfolgenden Befehl wei- 
ter. Im anderen Fall wird ein Sprung an 
die als erster Parameter angegebene 
‚Adresse durchgeführt. Der Aufruf könn- 
te dann so aussehen: 

2000 LDA ZAEHLER 
2010 CMP #HOECHSTWERT 
2020 JEQ KEINE_VERAENDERUNG 

Hier kann man übrigensauch sehr gut 
sehen, daß Assemblerprogramme nicht 
unbedingt schwer lesbar sein müssen. 
Immerhin kann man, soweit es der Spei- 
cherplatz erlaubt, die Labelnamen be- 
liebig lang und damit ziemlich selbst- 
erklärend gestalten. 

Ein weiteres Beispiel wäre ein Makro 
zur Addition von 16-Bit-Werten, für die 
es bekanntlich beim 6502 keinen eige- 
nen Befehl gibt: 

1000 .MACRO AIW ;Add Immediate 

to Word 

„IF #2=2 
ING #1 

1030 BNE ?NO_INC 
1040 INC %1+1 
1050 NO_INC 

1060 „ELSE 

1070 LDA #1 
1080 CLC 

1090 ADC #< %2 
1100 STA %1 

1110 IDA %1+1 
1120 ADC #> #2 
1130 STA #1+1 
1140 .ENDIF 

1150 .ENDM 

Hier wird zuerst geprüft, ob das 
zweite Argument, also die Zahl, die 
addiert werden soll, den Wert 1 enthält. 
In diesem Fall kann der etwas kürzere 
Weg über die Inkrementierung der bei- 
den Bytes gegangen werden. In allen 
anderen Fällen (».ELSE«-Abfrage) wer- 
den der Reihe nach zunächst das nie- 
derwertigere und dann das höherwerti- 
gere Byte addiert. Man beachte, daß 
Makros auch eine Optimierung des Pro- 
grammtextes vornehmen können, wenn 
sie sinnvoll konditionell definiert sind. 
Obwohl im Programmcode nun jedes 
Mittel zur Kürzung des Codes vorge- 
nommen werden kann, sieht der tat- 
sächliche Quelltext wesentlich über- 
sichtlicher aus - und ist zudem noch 


1010 
1020 


;Eins addieren? 


kürzer! Was will man mehr? Auch hier 
ein Beispiel für die Benutzung dieses 
Makros: 

2000 AIW PNT,7680 

Man vergleiche dies mit: 

2000 LDA PNT 

2010 CLC 

2020 ADC #< 7680 

2030 STA PNT 

2040 LDA PNT+1 

2050 ADC #> 7680 

2060 STA PNT+1 

Mit Makros kann man aber nicht nur 
oft benutzte Kombinationen von Befeh- 
len, sondern auch Befehlsfolgen, die in 
einem eigenen Programm regelmäßig 
auftreten, verkürzen. Auch zum Aufbau 
von Datentabellen sind Makros nütz- 
lich, da sich auch die übergebenen 
Parameter direkt in Daten umwandeln 
lassen. 

Ein weiterer Pluspunkt von Makros 
ist, daß es Umsteigern von Basic 
erleichtert wird, in Assembler zu pro- 
grammieren - Makrobibliotheken, die 
Makros wie »PRINT«, »INPUT< oder 
»GRAPHICS« enthalten, gibt es zur 
Genüge. 

Kommen wir zum eigentlichen 
Assemblerteil von »MAC/6$«. Hier las- 
sen sich für den Quelltext, das Listing 
und den erzeugten Code beliebige Peri- 
pheriegeräte festsetzen. Dabei kann 
man den Quelltext auch direkt aus dem 
Speicher übernehmen. Oder man legt 
den generierten Maschinencode direkt 
im RAM-Speicher ab. Dabei muß man 
natürlich darauf achten, den im Spei- 
cher befindlichen Programmtext nicht 
zu überschreiben. Das Wichtigste ist 
natürlich die Assembliergeschwindig- 
keit. Dazu ein Beispiel: Für etwa 100 
KByte Quelltext (wobei zu beachten ist, 
daß MAC/65 die Befehle in Tokens ver- 
wandelt und daher relativ wenig Platz 
für Quelltexte verbraucht) benötigt der 
Assembler etwa drei Minuten. In die- 
sem Zeitraum wurde der gesamte 
Quelltext von Diskette gelesen und der 
erzeugte Code wiederum auf Diskette 
geschrieben. Hier darf man nicht ver- 
schweigen, daß die meiste Zeit beim 
Assemblieren durch Zugriffe auf ex- 
terne Speichermedien verlorengeht. 
Deshalb lassen sich bessere Ergeb- 
nisse erzielen, wenn man auf dem Atari 
130 XE mit der RAM-Disk unter DOS 
2.5 arbeitet. 

Ein anderer wichtiger Gesichtspunkt 
ist, daß der »MAC/65«-Assembler, 
nachdem er mehrmals verbessert 
wurde, als fast fehlerfrei bezeichnet 
werden kann. Dies bestätigt mehrjäh- 
rige Erfahrung. Was wäre schlimmer als 
ein Assembler, der bereits beim Assem- 
blieren Fehler in den Maschinencode 
bringt? 

Doch der 


Assemblerteil von 


»MAC/65« hat noch einen weiteren 


Leckerbissen zu bieten: Für die Aus- 
gabe des Protokolls beim Assemblieren 
auf Druckern stehen vielfältige Funktio- 
nen zur Verfügung. Man kann sogar den 
Inhalt und die Form des Listings beein- 
flussen. So istes zum Beispiel kein Pro- 
blem, die Erzeugung des Listings für 
bestimmte Teile des Programms abzu- 
schalten oder bei Makros alle nicht 
wichtigen Teile wegzulassen. Außer- 
dem lassen sich die Seitenlänge und 
-breite sowie der Steuercode für Sei- 
tenvorschub festlegen. Diese Angaben 
befähigen den »MAC/65«, ein über- 
sichtliches Listing mit Seitennumerie- 
rung und Seitenüberschriften zu erzeu- 
gen. Wahlweise kann auch noch eine 
Cross-Reference-Liste ausgestellt wer- 
den. So könnte in alphabetischer Rei- 
henfolge für jedes benutzte Label nicht 
nur der erzeugte Wert, sondern auch 
jedes Auftauchen im Programm mit 
Seiten- und Zeilennummer angegeben 
werden. Eine sehr nützliche Funktion, 
um zeitaufwendige Fehlersuche zu 
ersparen. g 

Der dritte Bestandteil vom 
»MAC/65«-Assembler ist der Monitor, 
Er nennt sich »DDT« (Dunions Debug- 
ging Tool), daer durch Eingabe von DDT 
aufzurufen ist. Hier siehtman sofort den 
ersten großen Unterschied zu konven- 
tionellen Debuggern. Statt einen nor- 
malen Textbildschirm zu verwenden, 
erzeugt er ein spezielles Bildschirmfor- 
mat. Dieses ist sehr übersichtlich und 
informativ und beinträchtigt trotzdem 
die Übersichtlichkeit des zu bearbei- 
tenden Programmbildes nicht. Auf dem 
verhältnismäßig kleinen Bildschirmaus- 
schnitt kann ein Teil des Speichers in 
disassemblierter Form oder in hexade- 
zimaler Schreibweise betrachtet wer- 
den. Weiterhin erfolgt noch die Aus- 
gabe der Positionen der vier Break- 
points sowie der Prozessor- und Sta- 
tusregister. Hier fehlen zwar Ein- und 
Ausgabefunktionen, dafür gibt es aber 
einige unübliche Bonbons. So kann 
man mit START das Programm an der 
Stelle fortsetzen, an der sich der PC 
(Program-Counter) befinde. Mit 
SELECT erfolgt ein Umschalten zwi- 
schen dem DDF-Bildschirm und dem 
vom Programm erzeugten Bildschirm, 
und mit OPTION lassen sich noch ein- 
zeilne Maschinensprachbefehle abar- 
beiten. 

Eine lästige Eigenschaft von DDT soll 
hier nicht verschwiegen werden. Dader 
Speicherausschnitt im Bildschirmfen- 
ster nur mit den Cursortasten um ein- 
zelne Zeilen verschoben werden kann, 
istes leider ein Unding, bestimmte Pro- 
grammteile schnell zu finden. 

Zusammenfassend kann man jedoch 
sagen: DDT ist zum Bearbeiten von Pro- 
grammen, die sich bereits im Speicher 
befinden, prädestiniert. 


Eon 
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Als Zusatz zum »MAC/65«-Assem- 
bler wird von OSS eine Diskette mit 
Hilfsprogrammen und vordefinierten 
Makros (»MAC/65 Toolkit«) angeboten. 
Hier findet man beispielsweise Makros 
für alle normalen Ein- und Ausgabefunk- 
tionen, normale und Player/Missile- 
Grafik und Arithmetik. Darunter befin- 
det sich auch ein Programm, das die 
Kommandozeile von DOS XL analysiert 


und somit das Schreiben von zusätzli- 
chen Kommandos für DOS XL wesent- 
lich erleichtert. Ein komplettes Datei- 
kopierprogramm, das fast ausschließ- 
lich mit Makros geschrieben ist, fehlt 
auch nicht. 

Man kann mit gutem Gewissen 
sagen, daß MAC/65 für jeden, der sich 


in Assembler versuchen will, hervorra- ° 


gend geeignet ist. Dabei kommen auch 


Anfänger nicht zu kurz, die sich in der 
Basic-ähnlichen Umgebung wohlfühlen 
werden. Ein fortgeschrittener Program- 
mierer wird nach einigen Stunden 
‚Arbeit mit »MAC/65« nichtmehr auf dit 


sen komfortablen Assembler verzich- 


ten wollen. (Julian F. Reschke/wb) 
Bezugsquelien: 

Münzenloher, Tölzer Str. 4, 8150 Holzkirchen, 

Tel. (08024)1814 

Compy-Shop, Gneisenaustr. 29, 4330 Mühlheim, 

Tel. (0208)497169 


»SynFile+«, 
Dateiverwaltung total 


Vor allem durch eine gelungene 
Benutzerführung und ein gut 
durchdachtes Konzept hebt sich 
»SynFile+« angenehm von an- 
deren Dateiverwaltungen ab. 

at man schon mal einen Heim- 
KH zu Hause stehen, 

sollte man ihn nicht nur zum 
‚Spielen nutzen. Schließlich gibt es eine 
Reihe von sinnvollen Anwendungen, 
die sich auch auf einem Atarirrealisieren 
lassen. So zum Beispiel eine Dateiver- 
waltung wie »SynFile+«. Mit ihr kann 
man Daten aller Art übersichtlich und 
sauber verwalten. Sei dies nun ein 
Adressenverzeichnis, eine Platten- 
sammlung oder Mutters Kochrezepte, 
das spielt keine Rolle. Aber auch Kun- 
dendaten oder Verkaufsstatistiken 
kann man mit ein und demselben Pro- 
gramm verwalten. 

»SynFile-+« wird auf Diskette geliefert 
und ist für Atari Computer mit minde- 
stens 48 KByte Speicher gedacht. Man 
erhält noch eine rund 120 Seiten 
umfassende Bedienungsanleitung in 
englischer Sprache, die jedoch durch 
Aufmachung und Gliederung gut zu 


Bild 1. So kann beispielsweise eine selbst aufgebaute Eingabe- 


maske mit »SynFile+« aussehen 
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handhaben ist. Auch die Benutzerfüh- 
rung des Programms ist natürlich in 
Englisch gehalten. Dies stört aber nicht 
so sehr, da die Bedienung von 
»SynFile+« vollständig menügesteuert 
ist. 

Das Funktionsprinzip von »SynFile+« 
ist eigentlich ganz einfach. Am besten 
stellt man sich das Programm als Kartei- 
kasten vor. Jede Karteikarte, auf der 
man Daten eintragen kann, umfaßt 21 
Zeilen mit je 80 Spalten. Auf dieser 
Karte trägt man zuerst die benötigten 
Datenfelder ein. Welche Felder man 
verwendet und wie man sie benennt, 
hängt natürlich vom eigenen Bedarf ab. 
Baut man sich beispielsweise ein 
Adressenverzeichnis auf, so würden 
die Felder »Name«, »Vorname«, »Wohn- 
orte, sTelefon« und so weiter lauten. Wie 
man diese Felder auf der Karte plaziert, 
bleibt dabei den eigenen Wünschen 
und Vorstellungen überlassen. Bei 
jedem Feld gibt man zudem noch die 
maximale Länge an, die jeder Eintrag 
umfassen darf. Außerdem muß der Typ 
des jeweiligen Feldes festgelegt wer- 
den. So soll ein Name beispielsweise 
später nur aus Buchstaben bestehen. 


Andererseits setzt sich eine Telefon- 
nummer aus numerischen Werten 
zusammen. Die Typenzuweisung birgt 
gleich zwei Vorteile in sich. Einmal kann 
das Programm dadurch leichter auf spä- 
tere Falscheingaben reagieren. Gibt 
man beispielsweise bei einer Telefon- 
nummer versehentlich einen Buchsta- 
ben ein, so wird diese Eingabe auf- 
grund des nicht übereinstimmenden 
Feldtyps nicht akzeptiert. Zudem ver- 
fügt man bei »SynFile+« über eine 
Reihe von Feldtypen, die das Arbeiten 
mit dem Programm wesentlich komfor- 
tabler machen. So gibt es beispiels- 
weise den Typ »Date«, also Datum. Hier- 
bei sind nur Eingaben erlaubt, die tat- 
sächlich auch einen Bezug zum Datum 
haben. Gibt man also »99/11/85 ein, 
reagiert »SynFile+« daraufhin mit einer 
Fehlermeldung. Allerdings muß ein 
Datum bei »SynFile+«in der amerikani- 
schen Notierung, also erst der Monat, 
dann der Tag und zuletzt noch das Jahr, 
eingegeben werden. 

Der Typ »Look-Up« wiederum erlaubt 
nur die Eingabe solcher Werte und 
Texte, die man vorher in einer Tabelle 
exakt festgelegt hat. Soll in einem Feld 


Bild 4. In allen Menüs von »SynFile+« wählt man die Unter- 


Punkte mit Hilfe der Cursortasten 
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NAME: Wurm 
VORNAME: Peter 


STRASSE: Petersstr. 
PLZ: 2222 ORT: Wurmhausen 
TELEFON: 2345 

GEBURTSTAG: @1/01/®1 GESCHLECHT: M 


BEMERKUNG: wurmt 


Bild 2. Ein Datensatz als Hardcopy 


zum Beispiel das Geschlecht einer Per- 
son eingetragen werden, so legtman in 
der Tabelle die Eingaben »m« für männ- 
lich und »w« für weiblich fest. Alle ande- 
ren Eingaben werden dann ignoriert. 
Mit Hilfe des Typs »Conditional« kann 
man dann noch einen Feldinhalt von 
einer vorher definierten Bedingung 
abhängig machen. Soll mit dem Inhalt 
eines oder mehrerer Felder gerechnet 
werden, kommt das Ergebnis dieser 
Berechnungen in ein Feld des Typs 
»Computede«. 

Sobald die Definition aller Felder 
abgeschlossen ist, hat man eine fertige 
Eingabemaske, wie sie in Bild 1 zu 
sehen ist. Sollte man feststellen, daß 
die Maske noch nicht in der gewünsch- 
ten Form vorliegt, kann man sie natür- 
lich auch nachträglich noch ändern. 
Man ordnet der Datei einfach einen 
anderen Dateinamen zu und speichert 
sie auf Diskette. Als nächsten Schritt 
indiziert man ein oder mehrere Felder 
eines Datensatzes. Bei der Indizierung 
wird der Inhalt des jeweiligen Feldes in 
ein eigenes File abgelegt. Auf diese 
Weise muß das Programm beim Suchen 
oder Sortieren von Datensätzen nicht 
die gesamte Datei, sondern nur die 
jeweilige Indexdatei durchforsten. Bis 
zu 16 Felder können gleichzeitig indi- 
ziert werden. Dabei istjedoch darauf zu 
achten, daß der Speicherplatz auf Dis- 
kette mit der Zahl der Indexfelder rapide 
abnimmt. Auch ist die Zahl der Daten- 
sätze, die eine Datei umfassen kann, 
vorwiegend durch die Größe des Index- 
feldes begrenzt. Im Gegensatz zu den 
eigentlichen Daten muß das Indexfeld 
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Bild 3. Eine Liste aller Datensätze läßt sich auf einem Drucker ausgeben 


nämlich im Speicher des Computers 
Platz finden. Die Datensätze einer einzi- 
gen Datei hingegen können auf bis zu 
16 Disketten abgelegt werden. 

Hat man seine Daten eingegeben, 
kann man damit natürlich einige Mani- 
pulationen vornehmen. So lassen sich 
die Datensätze nach steigender oder 
fallender Folge sortieren. Einzelne 
Datensätze kann man auch mit Hilfe von 
verschiedenen Suchkriterien schnell 
finden. Gibt man mehrere Suchkriterien 
an, kann man wählen, ob alle Bedingun- 
gen gleichzeitig oder nur eines der Kri- 
terien erfüllt sein muß. 

Will man mit Hilfe einer Textverarbei- 
tung Serienbriefe drucken, können die 
Daten, die in die Briefe eingefügt wer- 
den sollen, natürlich einer SynFile- 
Datei entnommen werden. Ein Beispiel: 
Man schickt ein Rundschreiben an alle 
Personen, die in einer Adreßdatei ge- 
speichert sind und in einer bestimmten 
Stadt wohnen. Anschließend gibt man 
noch als Suchkriterium die gewünschte 
Stadt ein. Aus den gefundenen Daten- 
sätzen werden nun Namen und Adres- 
sen in ein separates File geschrieben. 
Eine Textverarbeitung wie der »Atari- 
Schreiber« beispielsweise, kann nun 
diese Datei lesen und deren Daten in 
die einzelnen Briefe eintragen. 

Die Inhalte einer Datei kann man 
natürlich auch auf einem Drucker aus- 
geben. Dies kann grundsätzlich auf drei 
‚Arten geschehen. Einmal kann man 
quasi eine Hardcopy desmomentan auf 
dem Bildschirm befindlichen Datensat- 
zes anfertigen (Bild 2). Will man meh- 
rere Datensätze ausdrucken, kann man 


die einzelnen Felder entweder neben- 
einander oder untereinander darstellen 
(Bild 3). Auch beim Ausdruck kann man 
sich die jeweiligen Datensätze mit Hilfe 
von Suchkriterien beliebig zusammen- 
stellen. Auf diese Weise lassen sich 
auch ohne weiteres Adreßetiketten 
beschriften. Leider sieht »SynFile+« 
nicht die Möglichkeit vor, eine Druck- 
maske zu speichern. 

Die Benutzerführung von »SynFile+« 
ist als vorbildlich zu bezeichnen. Am 
unteren Bildrand findet man drei Haupt- 
menüpunkte. Mit Hilfe der Cursortasten 
wählt man sich den jeweiligen Punkt 
aus. Drückt man dann RETURN, so 
erscheint das jeweilige Untermenü in 
Form eines Fensters auf dem Bild- 
schirm (Bild 4). Die einzelnen Unterme- 
nüpunkte werden wiederum mit den 
Cursortasten angewählt. Auch die 
Typenzuweisung bei der Felderdefini- 
tion wird über ein Untermenü durchge- 
führt. Mit diesem Bedienungsschema 
erreicht »SynFile+« eine Übersichtlich- 
keit, wie sie bei kaum einem Programm 
für Atari-Computer zu finden ist. 

Mit Ausnahme der etwas mangelhaf- 
ten Druckeranpassung kann man 
»SynFile+« also kaum Schwächen 
nachsagen. Ein echtes Kaufhindernis 
dürfte jedoch der Preis dieses Pro- 
gramms sein. Bei rund 220 Mark sollte 
man doch eine rentable Anwendung für 
dieses Programm vorweisen können. 

(Wolfgang Czerny/wb) 
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J. Schultz/W. Pest 
Drucker-Handbuch 

Januar 1985, 188 Seiten 

Welchen Drucker brauche ich? Einen 
schnellen, einen leisen, einen billigen, 


auf alle diese Fragen eine fundierte Ant- 
wort! 

'® Endlich ein informativer Leitfaden für 
alla, die vor dem Kauf eines Druckers. 
stehen. 
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Ob Sie schon einen Computer besitzen. 
seine Anschaffung planen oder sich nur 
mai aus Interesse mit diesem taszinie- 
randen Gebiet auseinandersetzen wol- 
len: in diesom Buch finden Sie die Ant- 
wort auf ale Fragen zur Computertech- 
nik. Das Buch beschreibt den derzeiti- 
gen Stand der Tochnik, gibt Aufschluß. 
Über die Entwicklung der Computer und. 
verschafft Ihnen eine Marktübersicht 
Ober Hard- undSoftware (wenn Sie nicht, 
wissen, was das ist, dann lesen Sie die- 
‚ses Bucht). Und es beantwortet auf 
amösante Woise die oft gestelte Frage: 
»Was, zum Kuckuck, kann ich eigentlich 
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COMPUTER-ZEITSCHRIFTEN 


VON PROFIS FÜR PROFIS 


COMPUTER PERSÖNLICH 


Das aktuelle Fachmagazin 

für Personal-Computer. 

%* Wenn Sie jetzt den Schritt vom 
Heim-Computer zur professionel- 
len Anwendung eines Personal 
Computers planen 

%* Wenn Sie beruflich oder privat 
bereits einen Personal Computer 
benutzen 


%* Wenn Sie regelmäßig Informatio- 
nen über das aktuelle Produkt- 
angebot benötigen 


Wenn Sie selbst programmieren 


%* Wenn Sie professionelle Hard- 
und Softwaretests suchen 

Wenn Sie Ihr eigenes System 
möglichst effizient einsetzen wol- 
len 

dann ist »Computer persönlich«, das 
aktuelle Fachmagazin für Personal 
Computer, genau Ihre Zeitschrift. 
Die konsequente Ausrichtung auf 
professionelle Anwendungen bietet 
Ihnen alle wichtigen Informationen. 
Von Profis für Profis! 

»Computer persönlich« gibt es alle 
14 Tage neu bei Ihrem Zeitschriften- 
händler oder im Computer-Fach- 
geschäft. 


* 
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PC MAGAZIN 


Einzige Wochenzeitung für Personal 
Computer im IBM-Standard. 


Sie beschäftigen sich beruflich oder 
privat mit dem Einsatz und der 
Anwendung von Personal 
Computern? 

Sie sind an aktuellen, professionel- 
len Informationen über IBM-PCs, 
kompatible Systeme und deren pro- 
fessionellen Einsatz interessiert? 
Dann ist das PC Magazin genau auf 
Ihre persönlichen Bedürfnisse 
zugeschnitten. 


Es wird von anerkannten und er- 
fahrenen Fachjournalisten für pro- 
fessionelle Anwender und Fachleute 
geschrieben. 


Es berichtet jede Woche ausschließ- 
lich über Computer im IBM-Standard 
und kompatible Systeme, über 
Hard- und Softwareneuheiten. 

Es bringt ausführliche Testberichte 
und gibt Ihnen wichtige Informatio- 
nen über N. e sowie die 
PC/Host-Verbindung.. 

Nur diese Spezialisierung ermöglicht 
eine gezielte Berichterstattung und 
bietet genügend Raum, um auf An- 
wenderprobleme spezifisch eingehen 
zu können. 

Von Profis für Profis! 


Und das jeden Mittwoch neu bei 
Ihrem Zeitschriftenhändler oder im 


Computer-Fachgeschäft. 
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Wenn mir das PG-Magazin zusagt und ich es 
regelmäßig weiterbezichen möchte, brauche 
ich nichts zu tun; Ich erhalte mein PG-Magazin 
dann regelmäßig jede Woche per Post frei 
Haus geliefert und bezahle pro Jahr nur 

DM 165,— Zustellung und Fostgebühren 
übernimmt der Verlag. 
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AIARI ST-Computer 


3)a”-Format 


WordStar für 
en ATARI ST 


persönlicher Anrede an eine beliebige Anzahl von Adressen schreiben und 
auch die Adreßaufkleber drucken. 


Jetzt gibt es WordStar/MailMerge für den ATARI ST! 


Damit eröffnen sich Ihnen alle Möglichkeiten, Ihren ATARI ST für 
professionelle Textverarbeitung einzusetzen. Zum Superpreis! 


"= *WordStar für den ATARI ST wird auf einer 3°/2-Zol-Diskette geliefert. 


Sie beinhaltet: 

- CP/M-Z 80-Emulator 

- WordStar/MailMerge-Dateien 

Hardware-Anforderungen: ATARI ST-Computer, 80-Zeichen-Monitor, 

ein 3°/2”-Diskettenlaufwerk, beliebiger Drucker mit Centronies-Schnitistelie. 


WordStar ist an den ATARI ST bereits fertig angepaßt und läßt sich 
bequem über Funktionstasten steuern. 
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